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ii^&l ABSTRACT 

THIS DIAGNOSTIC «ILli TEST » 124K OF MOS OR CORE MEMORY 
ON ANY PDP-11 FAMILY COMPUTER, SOME TESTS ARE WORST CASE 
FOR MOS AND SOME FOR COREi BUT hhh TESTS ARE ALWAYS RUN « 
THE TESTS OCCUPIES LESS THAN 2K OF MEMORY SO IT CAN BE 
USED TO TEST A SYSTEM WITH ONLY 4K OF MEMORY^ IF ONLY 4K 
EXISTSi HOWEVERf THE ABSOLUTE LOADER IS NOT SAVED^ 

THIS PROGRAM CAN BE RUN UNDER XXDPf APT AND ACT MONITORS, 
ON PROCESSORS WITH NO HARDWARE SWITCH REGISTER^ SOFTWARE 
SWITCH REGISTER m LOCATION 17S« 

CU13 GETTING STARTED 

IF NO HARDWARE SWITCH REGISTER SET LOCATION 176 TO OBTAIN SWITCH 
OPTIONS, 

TO START! 



A« 
B« 

C« 
D« 
E« 

F. 



Gt 



SET SWITCH REGISTER s 00000 

START AT 200, 

THE MEMORY LIMITS WILL BE PRINTED, 

SEE SECTION 4^4 FOR REST OF PRINTOUTS EXPECTED. 

»END PASS #01»« WILL BE TYPED LASTi AND THE TEST WILL 

RESTART 

TO HALT*THS TEST? TYPE CONTROL^C^ THIS WILL INSURE THE 

PROGRAM IS RELOCATED BACK TO LOWER MEMORY, 

BE PATIENT, THE CONTROL^-C IS ONLY RECOGNISED AT THE END 

OF THE CURRENT SUBTEST, 
IF AN UNEXPECTED HALT OCCURS SEE SECTION 6,0, IF AN 
ERROR # IS TYPED SEE SECTION 6,2a 



ICAUTIONI 



BEFORE «DIGGING« 
SECTION 9« 



INTO THE LISTING READ 



SWITCH SETTING SUMMARY (SEE SECTION 4,1 FOR DETAILS) 



BIT1S(100000) 
BIT14(040000) 
BIT13C020000) 
BIT12(010000) 
BIT11C004000) 
BIT10C002000) 
BIT09(001000} 
BIT08C000400) 
BIT07C000200) 
BIT06C000100) 
BIT0SC000040) 
BIT04(000020) 
BIT03«BIT00 



HALT ON ERROR 

LOOP IN SUBTEST DEFINED BY BITS <3s0> 

INHIBIT ERROR PRINTOUTS 

ENABLE TESTING ABOVE 28K (MEMORY MANAGEMENT) 

ENABLE PARITY TESTING 

HALT AFTER EACH SUBTEST 

INHIBIT PROGRAM RELOCATION 

TYPE FIRST FAILING BIT ERROR PER 4K, 

ENABLE LONG GALLOPING TEST 

INHIBIT MEMORY SIZING 

INHIBIT «END PASS #XX« PRINTOUTS 

INHIBIT PRINTOUTS 

BEGINNING TEST NUMBER, 
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C2s0] REQUIREMENTS 

C2el3 EQUIPMENT 

STAI^DARD U FAMILY COMPUTER WITH A CONSOLE OUTPUT DEVICE 
AND FROM 4K TO i24K OF MEMORY, 



C2t23 STORAGE 

PROGRAM STORAGE « 0000 « 7744, PROGRAM EXPANDS FOR ERROR 
HISTORY AND TO SAVE ABSOLUTE LOADER OR XXDP CHAIN MONITOR^ 
(SEE SECTION 9^ FOR DETAILS) 



C3a03 LOADING PROCEDURE 

USE STANDARD PROCEDURE FOR pDP«ll ABSOLUTE BINARY FORMATTED TAPES^ 



(480) STARTING PROCEDURE 

14«11 SWITCH SETTINGS 

SOFTWARE SWITCH REGISTER m LOCATION 176 
BlT15(i00000) HALT ON ERROR 



BIT14(040000) 
OBIT13(020000) 
^BIT12(010000) 

f BITU(004000) 

|BIT10(002000) 

C'BIT09(001000) 

fiBlT08(000400) 
C?BIT07(000200) 
DBIT06(000100) 



LOOP ON TEST DEFINED BY SWITCH REGISTER BITS <3i0> 

INHIBIT ERROR PRINTOUTS 

ENABLE TESTING ABOVE 2%^^ (MEMORY MANAGEMENT) 

ENABLE PARITY MODULES^ 

J "PARITY" WILL BE TYPED 

HALT AFTER EACH SUBTEST 

iPRESS CONTINUE TO DO NEXT SUBTEST 

INHIBIT PROGRAM RELOCATION 

ilF SET LOCATIONS 430-7776 WILL NOT BE 

I TESTED t 

TYPE FIRST FAILING BIT IN EACH 4K BANK ONLYs 

ITHE TOTAL ERROR COUNT (UP TO 377) WILL 

iBE SAVED IN THE ERROR HISTORYt 

ENABLE LONG GALLOPING TEST^ 

|«GLP" WILL BE TYPED, 

ICAUTIONI INCREASES TEST TIME BY FACTOR OF 25 8 

INHIBIT MEMORY SIZING, 

iTHE MEMORY LIMITS MUST BE SETUP IN THE FOLLOWING LOCATIONSI 

(VALUES TO TEST 0»8K ARE SHOWN) 

(LOWTWOaLOCATION 322) 



LOWTWOl 
LOWADDS 



fSTORE BITS 17116 OF LOW TEST ADDRESS 
fSTORE REST OF LOW TEST ADDRESS 
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BIT0SC000040) 
BIT04(000020) 

BIT03«'BIT00 



HIGHTWOl fSTOPE BITS I7il6 OF HIGH TEST ADDRESS 

HIGHADDI 37776 iSTORE REST OF HIGH TEST ADDRESS 

NOTEl HIGHADD MUST BE SET TO A 4K BOUNDARY^ (E^Gg 37776) 

INHIBIT ^END PASS #XX« PRINTOUTS 

A, INHIBIT ERROR HISTORY PRINTOUTS. THE 

ERROR HISTORY CAN STILL BE OBTAINED 

BY TYPING C0NTR0L«C9 
Bg INHIBIT PRINTOUTS ^'PARITY'* ^ '^GLP" # «TST13 BNK XX«|, 

NUMBER OF TEST (0«13) TO RUN FIRST, 
INORMALLY USED WITH BIT14 (LOOP ON TEST) 



C4s2] CONTROLS OPTION 

CONTROL C t*C3 AFTER COMPLETION OF THE CURRENT TEST* 

THE ERROR HISTORY (SEE SEC « 6^3) WILL BE 
TYPED. THE PROGRAM WILL HALT IN LOWER MEMORY9 
PRESSING CONTINUE WILL RESTART THE DIAGNOSTlCt 

C4«33 STARTING ADDRESS® 200 

RESTART ADDRESS » 250 OR 200 

RESTART AT 200 CLEARS PASS COUNT ($PASS) AND PRINTS «DEKMA«B8 TITLE^ 



C4t43 PROGRAM AND/OR OPERATOR ACTION 

1) LOAD PROGRAM INTO MEMORY USING ABSOLUTE LOADER^ 

2) SET OPTIONS (SEE SEC, 4.1) 

3) START THE PROGRAM AT 200 

4) THE FOLLOWING IS AN EXAMPLE WITH EXPLANATIONS 
OF THE PRINTOUTS EXPECTED « 



^m 



^XXXXX-YYYYY" 

«PARITY« 
«GLP» 

«TST13 BNK 00»' 
«TST13 BNK 01» 
ETC,,, 
"RELOC" 

«TSTi3 BNK 00« 
«END PASS #XX« 



lADDRESSES OF TEST BOUNDARIES, 

I IF PARITY OPTION SELECTED 

I IF LONG GALLOPING OPTION SELECTED^ 
jPRlNTED AS TSTU IS ENTERED, 

lENTERING BANK 00 IN TEST 13, 

I AND BANK 1,,, 

fUNTlL ALL BANKS (UP TO 6) HAVE BEEN TESTED, 

ITHE DIAGNOSTIC RELOCATES TO HIGHEST 

iBANK UNDER TEST, AND RUNS TST0«TSTi3 AGAIN, 

ITESTING BANK 00 IN TEST 13 (RELOCATED STATE,) 

|NOTE»ONLY BANK 00 IS TESTED IN THE RELOCATED STATE, 

fWHERE "XX" IS THE PASS NO, 
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ADDITIONAL PRINTOUTS 
«N0 PhR"^ 



IPRINTED ir PARITY SELECTED BUT NOT AVAILABLE^ 

IPRINTED IF GREATER THAN 28K AND NO MEMORY 
iMANAGEMENT AVAILABLE, 



4gS LONG GALLOP OPTION 

NORMAL WORST CASE SR SETTING m 0000, FOR LONG GALLOP 
SR ^ 200« LONG GALLOP OpTION SHOULD ONLY BE USED IF AN 
NOs MEMORY PROBLEM Is SUSPECTED AND NO OTHER SUBTESTS 
WILL FAILs THE TEST TIME IS INCREASED 25 TIMES« 



CSt^l PROGRAM HALTS (NORMAL^' ERROR) 

THIS IS A LIST OF EXPECTED HALTS. IF THE TEST HALTS 

IN A LOCATION NOT IN THIS LIST AND ITS LESS THAN 776# IT 

MAY BE DUE TO A DEVICE INTERRUPTING, 

NOTE THE HALT AT END OF SUBTEST AND HALT ON ERROR HALT LOCATIONS 
MAY BE RELOCATED, THE ACTUAL LOCATIONS THEY ARE IN CAN BE FOUND 
BY SUBTRACTING 500 FROM 1664 CSWHALT] AND ADDING THIS DIFFERENCE TO THE 
CONTENTS OF SAVR6 CLOC« 34618 



PC 



REASON 



RECOVERY 



112 



TRAP TO LOC, 4 



146 


POWER FAIL 


1666 


HALT AT END OF 
TEST SWITCH SET« 


6132 


HALT ON ERROR 
SWITCH SET» 


6216 


CONTROL-C TYPED 
OR FATAL ERROR 
OCCURRED 



EXAMINE R6, IT CONTAINS 
THE POINTER TO THE PC 
WHERE THE TRAP OCCURRED, 

POWER UP WILL RECOVER 
IF IN CORE MEMORYe 

PRESS CONTINUE TO GO TO 
NEXT SUBTEST, 

PRESS CONTINUE^ 



PRESS CONTINUE TO RE« 
START TEST, 



C6t0J ERRORS 

C6.i] ERROR MESSAGE FORMAT 

THE ERROR PRINTOUT CONSISTS OF 6 OCTAL WORDS IN THE FOLLOWING 
FORMATS 
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^LOCATION GOOD BAD PC EPPOK 



PASFLG« 



»ADP EPP« WILL BE PRINTED PPIOP If AN ADDRESSING ERROR IS SUSPECTED, 
«PAR ERR« WILL BE PRINTED PRIOR If A PARITY ERROR TRAP OCCURRED 
SCAUTIONI IF PARITY ERROR THE GOOD DATA PRINTOUT IS THE 
PARITY MODULE UNIBUS ADDRESS THAT FAILED^ 



WHERE! 

LOCATIONS FAILING MEMORY LOCATION 

GOOD s GOOD DATA CDATA THAT WAS EXPECTED] 

BAD s BAD DATA CDATA THAT WAS FOUND] 

PC 8 PROGRAM COUNTER AT ERROR CALL^ 

ERROR s FAILING ERROR NO, (SEE SEC 6,2 « ERROR DICTIONARY) 

PASFLG m CONTENTS OF LOCATION PASFLG,THIS MAY NOT BE RELEVANT^ 
(SEE SEC, 692-ERROR DICTIONARY) 

ITHE TEST WILL CONTINUE AFTER THE ERROR PRINTOUT. 

i"NO MNG« WILL BE TYPED IF TESTING ABOVE 28K SELECTED AND NO MEMORY 

IMANAGEMENT IS FOUND^ 

|«N0 PAR'' WILL BE TYPED IF PARITY OPTION SELECTED 
lAND NO PARITY MODULES WERE FOUND^ 

(FATAL ERRORS) 

«ERROR #XXXXXX*' WILL BE TYPED WHERE «XXXXXX" IS 

THE ERROR NUMBER^ THE DIAGNOSTIC WILL USUALLY HALT ON THIS TYPE 
OF ERROR, SEE SEC « 6^2 -ERROR DICTIONARY « FOR DESCRIPTIONS 
OF THE ERROR, 



(APT MODE ERRORS) 

ALL ERRORS ARE TREATED AS FATAL UNDER APT, WHEN AN 
ERROR OCCURS UNDER APT A «1« IS STORED IN LOCATION 
$MsGTY AND THE PROGRAM HALTS AT FATHLT, 

IFATAL CONTAINS THE ERROR NO, IN THE LOW BYTE AND 
THE FAILING BANK NO, UNDER TEST IN THE HIGH BYTE, 



C6«2) ERROR DICTIONARY 

THIS IS A LIST or ERROR NUMBERS PRINTED AND POSSIBLE 
CAUSES FOR THE ERROR9 

THE ROUTINE NAME WHERE THE ERROR CALL ORIGINATED IS GIVEN IN 
BRACKETS, 
NOTE* "BAKPAT*^ REFERS TO THE BACKGROUND PATTERN WRITTEN INTO MEMORY 
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A 



rOB VARIOUS TESTSe I^ PARITY SELECTED IT HAS A VALUE a 376 ^ELSEs377 
^SWAPPED BAKPAT" m 77000 IF PARITY SELECTED? ELSEs77400 



»ENDR 



lERROR # fCBUSERl BUS ERROR TRAP TO LOC « 4 OCCURRED 

THIS ERROR IS NOT PRINTED AND IS FOR «APT'» USE^ 

lERROR # I I CTSTTRPJFATAL DATA ERROR 

LOCATIONS 0000*430 FAILED l^S -I' 0*S TESTs 

R0 m GOOD DATA 

Rl m ADDRESS OF FAILING LOCATION « 

fERROR # 2 iCAPTSIE] APT FATAL ERROR 

APT MEMORY TABLES NOT SETUP CORRECTLY. 
CHECK LOCATIONS IMAMSi £430] TO $MADR4C446] 
I FOR CORRECT MEMORY SIEE DATAt 

fERROR # 3 |CTSTSIE3 OPERATOR FATAL ERROR 

SELECTED MEMORY SIEE GREATER THAN 28K, BUT 
SR BIT12 (10000) NOT SET, 
SET BIT12 AND RESTART AT 200b 

fERROR # 4 s (TSTSIE3 OPERATOR FATAL ERROR 

LOWEST SELECTED TEST LIMIT IS HIGHER THAN 
HIGHEST TEST LIMiTt SET LOCATIONS »LOWTWO" (3223 
TO «HIGHADD« (330J CORRECTLY AND RESTART 
AT 2009 

fERROR # 5 fCTST03 TEST SEQUENCE ERROR 

TST0 HAS BEEN ENTERED OUT OF SEQUENCE 
ITESTN SHOULD « 00 

I THE DIAGNOSTIC HAS BEEN CORRUPTED, 
I IF POSSIBLE SELECT ANOTHER 4K BANK 
fBANK AND RERUN THE TEST ON THE FAILING MEMORY^ 

fERROR # 6 ICTST03 DUAL ADDRESSING ERROR 

|FOR THIS ERROR THE GOOD DATA PRINTED IS AN 
lADDRESS, THIS IS THE ADDRESS SELECTED WHEN 
fTHE SAME DATA WAS WRITTEN INTO THE FAILING 
fLOCATION, CHECK BANK SELECT CIRCUITRY 

fERROR # 7 |(TST0) ADDRESS AND DATA ERROR 

I IDENTICAL TO PREVIOUS ERROR EXCEPT THE DATA 
fWRITTEN INTO THE FAILING LOCATION WAS IN 
fERROR ALSO9 

fERROR # 10 f(TST03 DATA ERROR 

fIF BAD DATA a 0000 COULD BE AN ADDRESSING 

fERROR 9 ELSE COMPARE GOOD AND BAD DATA FOR FAILING BITS, 

fERROR # U f(TST03 ADDRESSING ERROR 

fTHE FAILING ADDRESS RESPONDED BUT IS NON« 
fEXISTENT, MAY BE A DUAL ADDRESSING PROBLEM, 



^\ 



ill 
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lEPPOR # 12 



$mmn # u 

fERROR # 14 

lERROR # 15 

lERROR # 16 

lERROR # 17 

lERROR # 20 

lERROR # 21 

fERROR # 22 

lERROR # 23 

fERROR # 24 

lERROR # 25 
fERROR # 26 
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CTSTll TEST SEQUENCE ERROR 
ITEST t404] SHOULD » 01 

THE DIAGNOSTIC HAS BEEN CORRUPTED^ 

CTSTU DATA ERROR 

COMPARE GOOD AND BAD PRINTED DATA^ FAILING 

DATA BITS MAY SHORTED OR SWAPPED^ 

CTST23 TEST SEQUENCE ERROR 
$TESTN C4043 SHOULD m 02 

THE DIAGNOSTIC HAS BEEN CORRUPTED^ 

rTST23 ADDRESS OR DATA ERROR 

IF «ADR ERR" NOT PRINTED THEN THE BYTE SELECT 

CIRCUITRY PROBABLY FAILED« 

CTST33 TEST SEQUENCE ERROR 
ITESTN 14043 SHOULD m 03 

THE DIAGNOSTIC HAS BEEN CORRUPTED, 

CTST33 DUAL ADDRESSING ERROR 

DUAL ADDRESSING ppOBLEM FOR BITS THAT DIFFER 

IN GOOD AND BAD DATA PRINTOUT^ 

CTST33 DUAL ADDRESSING ERROR 

FOR THIS ERROR THE DATA PRINTED IS AN ADDRESS. 
THIS IS THE ADDRESS THAT WAS SELECTED WHEN THE 
SAME DATA WAS WRITTEN INTO THE FAILING LOCATION, 

CTST33 DUAL ADDRESSING ERROR 

SAME AS ERROR #20 EXCEPT DIFFERENT DATA 

(SWAPPED BAKPAT) WAS WRITTEN^ 

|CTST43 TEST SEQUENCE ERROR 

lITESTN C4043 SHOULD » 04t 

I THE DIAGNOSTIC HAS BEEN CORRUPTED, 

|rTST43 DUAL ADDRESSING ERROR 

I IF PASFLG z THEN THE FAILING LOCATION 

lAND FAILING DATA ARE DUAL ADDRESSES, 

ICTST53 TEST SEQUENCE ERROR 

fSTESTN C4043 SHOULD » 05 

I THE DIAGNOSTIC HAS BEEN CORRUPTED^ 

I i:tst53 data error 

fDATA WRITE OR READ ERROR, 

|tTST53 MARCHING 1*S AND 0*S DATA ERROR 

I IF PASFLGB0 FAILED MARCHING 1*S * 0*S IN 

I MAX TO MIN DIRECTION^ 

FAILED MARCHING I'S -¥ 0*S IN 

MIN TO MAX DIRECTION 

FAILED MARCHING 0*S ^ 1*S IN 

MAX TO MIN DIRECTION^ 



I IF PASFLG^l 

I 

I IF PASFLG«3 

I 



lERROR # 27 



ICTST53 MARCHING 1*S AND 0*S DATA ERROR 
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fERROR # 30 



fSRROH # 3S 



lERROR # 32 



fERROR # 33 



I ERROR # 34 

fERROR # 35 

I ERROR # 36 

fERROR # 37 

fERROR # 40 

fERROR # 41 



IDENTICAL TO PREVIOUS ERROR EXCEPT THE DATA IS 
CHECKED IMMEDIATELY AFTER BEING I^RITTEN^ 

tTST63 TEST SEQUENCE ERROR 

$TESTN SHOULD » 06 

THE DIAGNOSTIC HAS BEEN CORRUPTED^ 

tTST63 VOLATILITY/REFRESH TEST ERROR 



IF PASFLGii0 
IF PASFLGsS 



IF PASFLGs2 



IF PASFLGi§3 



BAKPAT WRITE OR READ ERROR, 

THE FAILING LOCATION CHANGED WHILE 

ANOTHER LOCATIONS WAS WRITTEN FOR 

2 HSt THE OTHER LOCATION IS SAVED 

IN SAVLOC £3523 

SWAPPED BAKPAT ill ^m OR 77000) 

WRITE OR READ ERRORt 

SAME AS IF PASFLGS2 EXCEPT 

THE DATA IS SWAPPED BAKPAT^ 



CTST7 3 TEST SEQUENCE ERROR 

STESTN SHOULD s 07 

THE DIAGNOSTIC HAS BEEN CORRUPTED^ 

CTST73 SHIFTING DIAGONAL DATA ERROR 

IF PASFLGS0 BAKPAT WRITE OR READ ERROR^ 

IF PASFLGsl BAKPAT READ CHECK ERROR 

IF PASFLGk GREATER THAN I BUT EVEN VALUE THENi 

THE FAILING LOCATION COULD NOT BE WRITTEN INtO^ 
IF PASFLGs GREATER THAN i BUT ODD VALUE THENf 

THE FAILING LOCATION WAS WRITTEN CORRECTLY 

BUT LOST THE DATA« 

CTST103 TEST SEQUENCE ERROR 
STESTN SHOULD s 10 

THE DIAGNOSTIC HAS BEEN CORRUPTED^ 



fCTST103 BAKPAT DATA ERROR 

iBAKPAT WRITE OR READ ERROR INTO THE FAILING LOCATION^ 

t[TST103 READ RECOVERY DATA ERROR 

I THIS ERROR CAN BE REPORTED BY TSTi0 AND TSTll, 

I (THEY SHARE CODE) « SEE ITESTN C4043 FOR WHICH TEST FAILED^ 

|FOR BOTH TESTS COMPARE THE GOOD AND BAD DATA AT THE FAILING 

iLOCATION TO SEE WHICH BITS FAILED^ 

|CTST103 READ RECOVERY DATA ERROR 

f IDENTICAL TO THE PREVIOUS ERROR EXCEPT SWAPPED BAKPAT IS 

fUSED AS WRITE AND READ DATA« 

fCTSTlU TEST SEQUENCE ERROR 

I ITESTN SHOULD s 11 

I THE DIAGNOSTIC HAS BEEN CORRUPTED, 

iCTSTU] TEST SEQUENCE ERROR 

I STESTN SHOULD a 12 

I THE DIAGNOSTIC HAS BEEN CORRUPTED^ 
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CT5T123 WOPST CASE CORE TEST DATA ERROR 



fERROR # 43 



lERROR # 44 



fERROR # 4S 



fERROR # 46 



fERROR # 47 



fERROR # 50 



lERROR # 51 



fERROR # 52 



fERROR # 53 



IF PASFLGssl 
IF PASFLG»2 



IF RASFLG®3 



COMPARE GOOD AND BAD DATA FOR FAILING BITS^ 

THE FAILING LOCATION WAS WRITTEN AND READ 

WITH GOOD DATA, BUT FAILED READ CHECK 

READING IN THE MIN, TO MAX DIRECTION^ 

SAME CONDITIONS AS PASFLGb2 EXCEPT FAILED 

DOING THE READ CHECK FROM MAX TO MIN DIRECTION^ 



CTST123 WORST CASE CORE TEST DATA ERROR 

IDENTICAL TO PREVIOUS ERROR EXCEPT THE DATA WRITTEN 
AND READ IS COMp^^EMENTED^ 

CTST131 TEST SEQUENCE ERROR 
ITESTN SHOOULD m 13 

THE DIAGNOSTIC HAS BEEN CORRUPTED^ 

CTST131 WRITE RECOVERY TEST DATA ERROR 

IF PASFLGS0 COMPARE GOOD AND BAD DATA FOR FAILING BITS^ 

IF PASFLGs77400 DATA ERROR FOUND WHILE DOING A SECOND READ CHECK^ 

IF PASFLGs77402 DATA ERROR FOUND IN FAILING LOCATION AFTER 

SMALL TEST PROGRAM RUN IN FAILING BANK« 
tTST133 WRITE RECOVERY TEST DATA ERROR 

DATA ERROR FOUNDJUST BEFORE THE SMALL TEST 
WAS TO BE RUN IN THE FAILING BANK« TO AVOID "BLOWING^ UP 
WHEN THE SMALL TEST IS RUN TST13 IS ABORTED^ 

CTST133 WRITE RECOVERY TEST DATA ERROR 

IDENTICAL TO ERROR #XXX EXCEPT THE DATA WRITTEN 
AND READ IS DIFFERENT, C 1776675 » 

177667 IS THE COMPLEMENT OF «JMP CR0)« CU0) WHICH IS 
THE ESCAPE FROM THE SMALL TEST PROGRAM RUN IN THE BANK 
UNDER TESTe 

I CPARERR3 PARITY TRAP ERROR 

I PARITY TRAP TO U4 OCCURRED « 

fFOR THIS ERROR PRINTOUT THE "GOOD DATA" IS ACTUALLY 

fTHE FAILING PARITY MODULE UNIBUS ADDRESS^ 

I SAVLOC C3523 CONTAINS THE PC WHERE THE TRAP OCCURRED « 

fCPARITY3 PARITY TRAP FATAL ERROR 

I A PARITY TRAP TO 114 OCCURRED^ BUT NO PARITY MODULES COULD BE FOUND 

fWlTH AN ERROR BIT (BIT155 SET« 

fCNOMM] OPERATOR FATAL ERROR 

I TESTING ABOVE 28K WAS SELECTED^ BUT NO MEMORY MANAGEMENT 

fOpTION WAS FOUND, 

I RESET SWITCH OPTIONS AND RESTART AT 200^ 

f EPARITY3 OPERATOR FATAL ERROR 

I PARITY TESTING WAS SELECTED BUT NO PARITY MODULES 

I WERE FOUND e 

f RESET SWITCH OPTIONS AND START AT 200^ 



tREPT 
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[6,33 ERROR HISTORY 

LOCATIONS IN MEMORY ARE SET ASIDE TO COLLECT A HISTORY 
or THE FAILING BITS IN A PI^RTICULAR MEMORY BANK, THIS 
DATA IS COLLECTED FOR EVERY ERROR REGARDLESS OF SWITCH 
SETTINGS^ 

NORMALLY THE DATA IS OUTPUT AT THE END OF TESTING? BUT 
IF CONTROL»C IS TYPED IT IS OUTPUT AT THE END OF THE 
CURRENT TESTs 

THE ERROp HISTORY IS INTENDED TO HIGHLIGHT IF THE ERRORS 
ARE DUE TO 1 BIT FAILING OR ONLY ADDRESS ERRORS9 



ERROR HISTORY FORMATi 



ERROR BANK 

WHERE I 
ERROR m 

BANK ffi 
COUNT m 
C6^4] ERROR RECOVERY 



COUNT 



BIT THAT FAILED CNUMBER OF THE FAILING BIT IN DECIMAL IgE« 

0«15 WILL BE TYPED OUT OR THE WORDS "ADR ERRw OR ^pkR ERR" WILL 

BE TYPED OUT IF ADDRESS ERROR OR PARITY ERROR WAS SEEN 

IN THE SPECIFIC BANK OF MEMORY 

4K MEMORY BANK IN WHICH THIS FAILURE WAS SEEN 

A FOR TO 4K| A 1 FOR 4 TO 8K AND SO ON 

NUMBER OF TIMES THIS MEMORY BANK FAILED, 

(377 IS MAXIMUM FAILURE COUNT RECORDED^) 



IF THE PROGRAM IS HALTED AFTER REPORTING AN ERROR IT CAN EITHER 
BE CONTINUED OR RESTARTED AT 200 OR 250 (SEE SEC 4,2) t HOWEVER FOR 
CPU^S THAT DESTROY CONTENTS OF REGISTERS AFTER COMING TO A HALT 
THE PROGRAM SHOULD ONLY BE RESTARTED, 



C7,0] RESTRICTIONS 



MEMORY UNDER TEST SHOULD BE CONTIGUOUS, FOR SYSTEMS HAVING NON« 
CONTIGUOUS MEMORY THE MEMORY BOUNDARIES SHOULD BE DEFINED BY THE 
OPERATOR, (CONTIGUOUS MEMORY IS DEFINED AS A MEMORY THAT CAN BE 
BOTH READ AND WRITTEN IN CONSECUTIVE LOCATIONS,) 



iB^0] MISCELLANEOUS 



(8slJ ADDRESS/BANK RANGES IN OCTAL AND DECIMAL 
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THIS REFERENCE TABLE CROSS REFERENCES THE MEMORY BANK NO^S^ 
THE RANGE AND THE PAR USED WHEN MEMORY MANAGEMENT IS ENABLED, 
IT Is ALSO USEFUL TO SHOl^ STARTING ADDRESSES IN A PAR« 
TICULAR 4K BANK, 



BANK NOg 


DECIMAL 




RANGE 





• 4K 


I 


4K « 8K 


2 


SK^UK 


3 


12K-16K 


4 


16K»20K 


5 


20K«24K 


6 


24K"28K 


7 


28K»32K 


S 


32K«'36K 


9 


36K»40K 


10 


40K->44K 


11 


44K«48K 


12 


48K«52K 


13 


52K-56K 


14 


56K.60K 


15 


60K.64K 


16 


64K«>68K 


17 


68K«'72K 


18 


72K-76K 


19 


76K«80K 


20 


80K»84K 


21 


84K-88K 


22 


88K«92K 


23 


92K»96K 


24 


96K«100K 


25 


100K«104K 


26 


I04K-108K 


27 


108K-112K 


28 


112K-116K 


29 


U6K«.120K 


30 


120K»124K 


31 


124K«128K 



OCTAL 
RANGE 



[PAGE ADDRESS REGISTER! 
USED/CONTENT UNIBUS ADDRESS 



000000*017776 0000 

020000«037776 NOT USED 

040000«057776 NOT USED 

060000«077776 NOT USED 



100000»117776 
120000»137776 
140000«157776 
160000«177776 

200000-217776 
220000"237776 
240000«.257776 
260000-277776 

300000"317776 
320000-337776 
340000»357776 
360000*377776 

400000»4i7776 
420000«437776 
440000«457776 
460000»477776 
500000-517776 
520000-537776 
540000-557776 
560000.577776 
600000-617776 



NOT USED 
NOT USED 
NOT USED 

1 1600 

2 2000 

3 2200 

4 2400 

5 2600 

6 3000 

1 3200 

2 3400 

3 3600 



4000 
4200 
4400 
4600 
5000 
5200 
5400 
5600 
6000 



620000-637776 1 6200 

640000-657776 2 6400 

660000-677776 3 6600 

700000-717776 4 7000 

720000-737776 5 7200 

740000-757776 6 7400 

760000-777776 7 7600 



772340 



772342 

772344 
772346 
772350 
772352 

772354 



772354 



NOTES! 

I9 THE PAR (PAGE ADDRESS REGISTER) CONTENTS ARE SHOWN IN A TEST THAT SELF SlEES^ 

IF THE LIMITS OF TESTING ARE SET BY THE OPERATOR AND 

IF THE BANK IS ABOVE 28K PAR NO, 1 WILL BE SET TO THE 

BEGINNING PAGE« FOR EXAMPLE IF THE TESTING WAS TO 

BEGIN WITH BANK 8 PAR NO^ 1 WOULD EQUAL 2000, PAR 2 

WOULD EQUAL 2200 ETC« 
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CS,23 EXECUTION TIME 

HERE km SOME TYPICAL EXECUTION TIMES, 

LSI«^11 AND 4K|s 100 SECS« 
LSI*11 AND 8K|^ 5 MINUTES, 



C8«21 PhSS COUNT AND TEST NO^ LOCATIONS 

IPASS C406] m PASS COUNT « CLEARED BY START AT 200^ 

ITESTN E4041 m CURRENT TEST NO, AND RELOCATION^ PARITY FLAGS^ 
WHEREi 

LOW BYTE m TEST N0« 

IF BITIS » I TEST IS RELOCATED 

IF BIT13 ss 1 PARITY UNDER TEST, 

[8^4] STACK POINTER 

THE STACK STARTS AT S00 WHEN THE PROGRAM IS NOT RELOCATED « 
SAVRSC3461 CONTAINS THE STACK STARTING VALUE WHEN THE DIAGNOSTIC 
IS RELOCATED 8 

SAVR6 ALSO CONTAINS THE STARTING ADDRESS OF THE PROGRAM WHEN 
IT IS RELOCATED^ 

CSgSJ POWER FAIL 

THE DIAGNOSTIC CAN BE POWER FAILED WITH NO ERRORS^ TO USEi 
START THE TEST AS USUAL AND POWER DOWN THEN UP AT ANY TIME^ 
THE PROGRAM SHOULD TYPE «P" AND CONTINUE TO RUN FROM TEST 
IN THE SAME STATE CItE, STATE OF RELOCATION] AS IT WAS BEFORE 
THE POWER WAS INTERRUPTED, HOWEVER IF THE DIAGNOSTIC WAS IN 
A MEMORY THAT CAN NOT HOLD DATA WITH THE POWER DOWN THEN THE 
PROGRAM WILL NOT RECOVER FROM POWER FAIL^ 



C980] PROGRAM DESCRIPTION 

19913 NARRATIVE FLOW CHART 

THE TEST IS LOADED INTO LOCATIONS 0000 « 7744 BUT 
EXPANDS DEPENDING ON HOW MUCH MEMORY IS UNDER TEST« 
SEE STEP 6« BELOW FOR A DETAILED EXPLANATION^ 

THE FOLLOWING NARRATIVE FLOW CHART DESCRIBES MAJOR 
PROGRAM OPERATION^ FOR THE PERSON WHO NEEDS DETAIL THE 
TAG ASSOCIATED WITH THE OPERATION IS GIVEN IN BRACKETSt 

FOR THIS DISCUSSION SWITCH SETTINGS ARE IGNORED AND EVERYTHING IS 
ASSUMED ENABLED^ 
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j DEKMAB«PS1 

It CSTAST3 PRINT "DSKNA^A^ TITLE 



2i CTSTRP3 SAVE DATA FROM LOCATIONS 0«376 
INTO 7744«i03149 

3t CTSTRP3 TEST LOCATIONS 0*376 BY WRITING AND 
READING 1*S AND 0*5^ NOTE THIS IS THE ONLY 
EXPLICIT TESTING Of THESE LOCATIONS, 

4, CSLFSIE3 SIZE MEMORY BY WRITING INTO SUCCEEDING 
MEMORY LOCATIONS UNTIL TIMEOUT TRAP TO 4 OCCURSt 
ENABLE MEMORY MANAGEMENT AND SIEE MEMORY ABOVE 
28K, 

5e CTYPSIE3 TYPE MEMORY TEST LIMITS« 

69 CSETSTK3 SPACE IS SAVED AT THE END OF THE TEST 

FDR AN ERROR HISTORY^ FOR EACH 4K BANK 18 BYTES ARE SAVED 
IN THE FOLLOWING FORMATf 

lADR ERRIPAR ERR 
IBIT15 lERR CNT 
|BITi3 iBITl4 
iBITil IBIT12 
JBIT09 IBIT10 
IBIT07 iBIT07 
IBIT05 IBIT06 
IBIT03 iBIT04 
JBIT01 |iIT02 
lUNUSED IBIT00 

IF Greater than 4K under test the absolute loader 

(300 ADDRESSES) IS APPENDED, IF GREATER THAN 4K 
AND UNDER XXDP CHAIN MODE 5674 (OCTAL) ADDRESSES 
ARE APPENDED TO THE TESTg THIS SAVES THE XXDP 
MONITOR, AND ALLOWS THE LOCATIONS OCCUPIED BY XXDP 
TO BE TESTED « 

7 8 CCLRMEM3 CALL »PARITY« ROUTINE AND IF SELECTED, 
ENABLE ALL PARITY MODULES, "PARMAP" (LOC, 352) 
CONTAINS A MAP OF PARITY MODULES FOUND, IF 
MODULE 172336 BIT 15 IS SET, IF #172334 FOUND BIT 14 
IS SET ETC«8 

8 8 CCLRMEM3 CLEAR MEMORY CURRENTLY UNDER TEST 

98 IC0NT3 DISPATCH TO TST0 

i0« (TST03 EXECUTE TEST 0« SEE SECTION 10 FOR TEST 
OESCRIPTIONS« 

lU (TSTSCP3 COMES HERE AFTER EACH TEST AND IF 

CNTRL< TYPED THEN GO TO ERROR HISTORY PRINTOUT, 

IF SR»2000 THEN HALT 

IF SRS40000 THEN LOOP ON TEST DEFINED BY <3S0> 
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ELSE CONTINUE TO NEXT TEST« 

i2t> CTST1«TST121 EXECUTE TSTi«TST12 EACH TIME 
GOING TO STEP 9^ 

i3« tTSTU] TEST 13 IS DirrERENT FROM TESTS 0»12# 
BECAUSE IT IS A SMALL PROGRAM ACTUALLY RUNNING 
IN THE MEMORY UNDER TEST. BEFORE THIS SMALL 
PROGRAM IS STARTED "TST13 BNK XX** IS TYPED, 
THIS Is DONE IN CASE THE PROGRAM FAILS , THE 
USER CAN THEN AT LEAST TELL WHICH BANK OF MEMORY 
FAILED, 

14 « CRELOCJ THE PROGRAM RELOCATES TO HIGH MEMORY 

TO TEST THE LOCATIONS IT OCCUPIES. (430-ENDPRG) , 

WHERE «ENDPRG« Is THE CONTENTS OF ENDSTK[3063« 
I.E THE LAST PROGRAM ADDRESS, NOTE "RELOC** IS 
PRINTED JUST PRIOR TO THE ACTUAL RELOCATION « 

15. TESTS 0«13 ARE RUN AS DESCRIBED ABOVE EXCEPT 
ONLY BANK LOCATIONS 430«ENDPRG ARE TESTED. 

16 9 CREL0ER3 RELOCATE THE PROGRAM BACK TO LOWER 
MEMORY^ 

17 « CL0WER3 IF CONTROL-C TYPED GO PRINT ERROR 
HISTORY. 

l8.tTSTMM3 IF MEMORY MANAGEMENT SELECTED AND AVAILABLE, 
RUN TESTS 0wl3 ON THE FIRST 24K SLICE ABOVE 28K« 

i9« CCONTMM] CALL «UPMM« fO UPDATE MEMORY MANAGEMENT 
PAR REGISTERS TO POINT TO THE NEXT 24K SLICE OF 
UPPER MEMORY^ 

20. tMAXADRj REPEAT STEPS 18 ^ 19 UNTIL ALL 
MEMORY ABOVE 28K IS TESTED. 

21. CENDPASI PRINT ERROR HISTORY OF FAILING BITS 

22« EIE0P3 DISABLE PARITY MODULES^ 
PRINT *'END PASS #XX'' 



[9,21 TEST TITLES 

SEE THE TEST HEADINGS IN THE LISTING FOR DETAILS ON EACH TEST. 

TEST 01 TEST FOR PROPER BANK SELECTION 

TEST It CHECK DATI/DATO LINES 

TEST 2i TEST MEMORY FOR HOLDING DATA AND BYTE SELECTION 

TEST 31 DUAL ADDRESS TEST A 

TEST 41 DUAL ADDRESS TEST B 

TEST 5S MARCHING 1»S AND 0*S 

TEST 6S CELLS* VOLATILITY TEST 
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TEST 71 SHIFTING DIAGONAL 

TEST 101 READ RECOVERY GALLOPING TEST THROUGH EVERY 64TH CELL 

TEST Uf READ RECOVERY LONG GALLOPING/FAST GALLOPING TEST 

TEST 121 WORST CASE TESTING FOR CORE MEMORY 

TEST 13s WRITE RECOVERY TEST 



tl090] RXDP & ACTll & APT OPERATION 
RXDP CHAIN MODE 



OPERATION IS IDENTICAL TO STAND ALONE EXCEPTi 



1, NO «DZKMA«.B« TITLE IS PRINTED, 
2t NO TEST 13 PRINTOUTS SUCH AS "TSTU BNK 00" « 
3« THE PROGRAM ALWAYS HALTS ON ERROR, 
4, AT THE END OF TEST ($ENDAD) CONTROL 
THE RXDP CHAIN MONITOR VIA LOCATION 

ACTU 



IS RETURNED TO 

42« 



OPERATION IS IDENTICAL TO STAND ALONE EXCEPTi 

U NO PRINTOUTS EXCEPT ERROR PRINTOUTS, 
2, THE PROGRAM ALWAYS HALTS ON ERROR, 

3t AT THE END OF TEST ClENDAD) CONTROL IS RETURNED TO 
THE ACTll MONITOR VIA LOCATION 42, 

APT 



OPERATION IS SIMILAR TO STAND ALONE EXCEPTi 

1, THE SOFTWARE SWITCH REGISTER BECOMES LOCATION 422 (SSWREG), 

2, AUTO SIZING CAN BE INHIBITED BY SETTING BIT 7 OF BYTE 
LOCATION 421 ($ENVM), 

3, ALL PRINTOUTS CAN BE INHIBITED BY SETTING BIT 5 OF 
BYTE LOCATION 421 (SENVM), 

4, ALL ERRORS CAUSE LOCATION 400 CSMSGTY) TO BE SET m 
0001 AND THE PROGRAM HALTS AT LOCATION 6214 (FATHLT), 
LOCATION 402 (IFATAL) CONTAINS THE ERROR N0« IN THE 
LOW BYTE AND THE FAILING MEMORY BANK NO, IN THE HIGH 
BYTE. 

APT MANAGER INFORMATION 

THE FOLLOWING IS AN EXAMpLE SCRIPT TO TEST A 4K MEMORY, 
IT IS RECOMMENDED THAT DIFFERENT SCRIPTS BE USED FOR 
DIFFERENT MEMORY SIZES TO SAVE AUTO SIZING TIME, 

THE EXAMPLE ASSUMES YOU ARE LOGGED INTO THE APT MONITOR, 

READY 
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RUN APPLU 

APT U PAPER TAPE PROGRAM LOAD UTILITY 

THE FOLLOWING COMMANDS ARE VALID 



ED 
LI 



EDIT A PROGRAM 
LIST A PROGRAM 



COMMANDS ED 

PROGRAM NAME TO EDITS EXAMPL 

DO YOU I^ANT TO LOAD A NEW REV OF THE PROGRAMC Y/N) f 
FIRST PASS RUN TIME IN SECONDS <li0>l 
LONGEST TEST TIME IN SECONDS <10>l 
ADDITIONAL RUN TIME IN SECONDS <0>S 
WHICH ETABLE DO YOU WISH TO EDIT? A 
SOFTWARE ENVIRONMENT<000>I 1 
ENVIRONMENTAL MODE<000>S 240 
SWITCH 1 <000000>| 
SWITCH 2 <000000>l 
CPU OPTIONS<0000>i 
MEMORY TYPE 1 <000>S 
MAXIMUM ADDRESS<00000000>S 
MEMORY TYPE 2 <000>l 
MAXIMUM ADDRESS<00000000>S 
MEMORY TYPE 3 <000>l 
MAXIMUM ADDRESS<00000000>S 
MEMORY TYPE 4 <000>S I 
MAXIMUM ADDRESS<00000000>l 17776 
WHICH ETABLE DO YOU WISH TO EDITI 
COMMANDS OFF 



aENDR 



DZKMA 


MACYU 


27C732) 


DZKMftB, 


Pli 
.ABS 






,NLIST 


MD,MC»CND 


1013 






1018 
































































160000 


1019 






1020 






1021 






1022 






1054 






1055 






1063 






1064 






1071 






1072 




000240 


1073 






1074 




000042 


1075 


000042 


000000 


1076 






1077 






















000044 






000046 




000046 


000156 






000052 




000052 


040000 






i)00044 


1078 






1079 




000070 


1080 


000070 


012737 


1081 


000076 


000000 


1082 







.LIST ME,BIN,SEQ,LOC 

.TITLE DZKMA 

l»COpypIGHT CO JANUARY 1976 

I»DIGITAL EQUIPMENT CORP, 

j*MAYNABD, MASS, 01754 

»» 

fttPBOGRAM BY PEPVEE ZAKI 

I#THIS PPOGPAM WAS ASSEMBLED USING THE PDP-ll MAINDEC SYSMAC 

I»PACKAGE {MAINDEC-U-DZQAC-CDiMAB 24, 1976, 

f» 

SSWPS160000 ifHALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 



ffTRAP CATCHER OF ,■♦■2 AND HALT FOR 0"776 LOCATIONS 



SCOPE sNOP 



.842 

.WORD 



jFOR ACT/XXDP 



.SBTTL ACTll HOOKS 



fHOOKS REQUIRED BY ACTll 

J SAVE PC 



SSVPCa, 
,a46 
6ENDAD 
,852 

.WORD 40 
.aSSVPC 



llDSET L0C,46 TO ADDRESS OF SENDAD IN ,$EOP 



J|2)SET LOC,52 TO 40000 
J I RESTORE PC 



0136 000024 pWRDNl 



,870 

MOV 
HALT 



#PWRUP,0«24 
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1085 






1086 




000104 


1087 






1088 


000104 


005237 000400 


1089 


000110 


000000 


1090 


000112 


000000 


1091 






1092 






1093 




000120 


1094 






1095 






1099 






1100 






1101 






1102 






1103 






1104 






1105 






1106 






1107 






1108 






1109 






1110 


000120 


010401 


1111 


000122 


013700 000316 


1112 


000126 


010021 


1113 


000130 


020105 


1114 


000132 


103775 


1115 


000134 


000207 


1116 






1117 






1118 


000136 


013706 000350 


1119 


000142 


012700 006066 


1120 


000146 


060600 


1121 






1122 


000150 


004710 


1123 


000152 


000120 


1124 






1125 






1126 


0001S4 


000411 


1127 






1128 






1129 


000156 


004710 


1130 


000160 


000240 


1131 


000162 


000240 


1132 


000164 


000240 


1133 


000166 


000430 


1134 






1135 




000176 


1136 


000176 


000000 


1137 






1138 






1139 






1140 






1141 






1142 







,al04 

> GET HERE IF AN ILLEGAL TRAP TO LOC , 4 OCCURRED, 

BUSERI INC g»SMSGTY jTELL APT FATAL ERROR«000 

HALT j*EPROR» TRAP TO LOC, 4 OCCURRED, 

HALT ;IN CASE CONTINUE PRESSED, 

1 114 AND 116 ARE RESERVED FOR PARITY TRAP VECTORS, SETUP IN 

IPOUTINE "BEGIN", 

.8120 



» WRITE MEMORY BACKGROUND 



THIS ROUTINE IS USED TO WRITE THE MEMORY BACKGROUND TO 
THE VALUE STORED AT LOCATION BAKpAT, THE ROUTINE ASSUMES 
THAT R4 IS POINTING TO THE LOWEST LOCATION AND R5 TO THE 
HIGHEST LOCATION TO BE WRITTEN, THE PROGRAM LEAVES THE 
SUBROUTINE WITH R0 CONTAINING THE CONTENTS OF BAKPAT, 



WRTMEMi MOV 
MOV 

2S| MOV 
CMP 
BLO 
RTS 



PWRUPl MOV 
MOV 
ADD 



R4,R1 

9#BAKPAT,R0 

R0,(R1)+ 

Rl,R5 

2$ 

PC 



9#SAVR6,SP 

«PNTMES-BEGIN,R 

SP,R0 



JSR PC,(R0) 
,ASCIZ /P/ 
.EVEN 



BR 



START 



l» SERVICE XXDP/ACTU 
SENDADi JSR PC,{R0} 

NOP 

NOP 

NOP 

BR RESTRT 



jSET Rl TO LOWEST LOCATION UNDER TEST 
ILOAD R0 WITH THE CONTENTS OF LOCATION BAKPAT 
JSTARTING FROM THE LOWEST LOCATION WRITE THE 
JMEMORY TO BACK GROUND PATTERN 

rRETURN FROM THE SUBROUTINE 



IRESTORE STACK POINTER 
I 

J GET THE INDIRECT ADDRESS OF LOCATION TPCRliF 
IRELATIVE TO LOCATION OF DIAGNOSTIC IN THE CORE 
|G0 TO THE TYPE ROUTINE AND TYPE CR, LF AND h "P" 



I RETURN TO ACTll/XXDP MONITOR 
I IF QUICK VERIFYbRESET ELSE NOP 
;IF QUICK VERIFYbCLR ««1 ELSE INC «0 
I IF QUICK VERIFYbBR ,«4 ELSE NOP 
J REPEAT TEST UNDER ACTll /XXDP 



SWREGl 



.8176 

.WORD 



.SBTTL START AND RESTART ROUTINES 

l» RESTART AT 200 TO CLEAR APT TABLES 
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000200 


013706 


000350 




000204 


012703 


000412 




000210 


005043 






000212 


022703 


000400 




000216 


001374 






000220 


105737 


000042 




000224 


001011 






000226 


105737 


000405 




000232 


100406 






000234 


004767 


006320 




000240 


055104 


046513 




000246 


000102 






















000250 


012704 


007744 




000254 


012703 


000346 




000260 


012305 






000262 


012306 






000264 


010600 






000266 


012746 


000340 




000272 


010046 






000274 


000002 
























































































































000276 








000024 






000024 


000200 








000044 






000044 


000276 








000276 






































000276 








000276 


000000 






000300 


000400 






000302 


000012 






000304 


000156 






000306 


000000 






000310 


000024 




1174 








lt75 








1176 




000405 





STARTI 


MOV 


g#SAVR6,SP 




MOV 


#$UNIT»R3 


161 


CLR 


-(R3) 




CMP 


#$MAIL,R3 




BNE 


1$ 




TSTB 


9842 




BNE 


RESTPT 




TSTB 


l«STESTN+l 




BMI 


RESTPT 




JSR 


PCTPCRLF 




.ASCIZ 


•DZKMA-B/ 




.EVEN 




BESTRTj 


MOV 


#ENDPRG,R4 




MOV 


#SAVR5,R3 




MOV 


(R3)+»R5 




MOV 


(R3)+,SP 




MOV 


SP,R0 




MOV 


#340»-(SP) 




MOV 


R0,»(SP) 




RTI 





jSETUP STACK POINTER, 

iCLEAB THE APT MAILBOX FROM SMAIL TO IDEVCT 

»CLEAR A MAILBOX LOCATION 

iDONE? 

IBRANCH IF NO 

lACTll MODE? 

iBRANCH IF YES 

jARE WE RELOCATED? 
jBR IF YES- SINCE TPCrLF IS RELOCATED ALSO- 
fPRlNT TITLE 



jLOAD R4 WITH THE ADDRESS OF THE END OF THE PROGRAM 

iCAUSE R3 TO POINT TO THE LOCATION SAVR5 

IRESTORE R5 

JAND RESTORE R6 JUST IN CASE IT IS A RESTART 

iPLACE THE STARTING A.DDRESS OF THE TEST IN R0 

jSET HIGH PRIORITY FOR RTI 

jGO TO '•8TART"«MAY BE RELOCATED, 

jlF RELOCATED SEE LOCATION SAVR6 FOR START, 



.SBTTL APT PARAMETER BLOCK 

I I »»«*»««»«»*»»»»»«»»»»«»»#»«#»»««»»»»#«*»««»»»»»»#**»*«»»»#**««« 

(SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 

; I «#»»»««««»«««'»»««»»»««»«»«»««»»«««»»««»««»#««#»»«»««#»»««»»»«'»« 

.SXs, If SAVE CURRENT LOCATION 

,a24 If SET POWER FAIL TO POINT TO START OF PROGRAM 

200 If FOR APT START UP 

, = 44 If POINT TO APT INDIRECT ADDRESS PNTR, 

SAPTHDP ffPOINT TO APT HEADER BLOCK 

,»,$X iiRESET LOCATION COUNTER 
} I »»«««««»«»««»»»»««»«»»»«««««»»««#»»»««»«»««»»»«#««««»««»««#«««» 
fSETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDPU DIAGNOSTIC 
I INTERFACE SPEC, 



lAPTHDi 

SHIBTSi 

SMBADRi 

$TSTMl 

SPASTMi 

SUNITMi 



.WORD If TWO HIGH BITS OF 18 BIT MAILBOX ADDR, 

.WORD SMAIL If ADDRESS OF APT MAILBOX (BITS 0-15) 

.WORD 10. If RUN TIM OF LONGEST TEST 

.WORD 110, ffRUN TIME IN SECS. OF 1ST PASS ON I UNIT (QUICK VERIFY) 

WORD ifADDlTlONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 



.WORD SETEND-8MAIL/2 ff LENGTH MAILB0X-ETABLE( WORDS) 



PELbSTESTN-H 



I IT WILL BE IF THE PROGRAM IS IN THE LOWER 
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1177 






1178 






1179 






1180 




000276 


1181 


000276 




1182 






1183 






1184 




000277 


1185 


000277 




1186 






1187 






1188 




000300 


1189 


000300 




1190 






1191 






1192 




000301 


1193 


000301 




1194 






1195 






1196 




000302 


1197 


000302 




1198 




000304 


1199 


000304 




1200 




000 306 


1201 


000306 




1202 






1203 






1204 






1205 




000310 


1206 


000310 




1207 




000312 


1208 


000312 




1209 


000312 




1210 




000314 


1211 


000314 


000 


1212 






1213 


000315 


000 


1214 






1215 






1216 






1217 






1218 






1219 




177560 


1220 




177562 


1221 




177564 


1222 




177566 


1223 




177572 


1224 


000316 


000377 


1225 






1226 


000320 


000000 


1227 


000322 


000430 


1228 






1229 






1230 






1231 


000324 


000000 


1232 


000326 


000000 



,sTYPENB*l 



.B$ADERR')-1 



,aSTRTDI*2 



,aL0WfiNK+2 



,sPASFLG+2 
ENDSTKl 

,aENDSTKf2 
PBNKi 
DECWRDi 

,sDECWRD<(-2 
TYPCNTi .BYTE 

SAVKBBi .BYTE 



fCORE, BIT 6 OF THE BYTE WILL BE SET IF THE 
rPROGRAM IS IN A RELOCATED STATE AND BIT 5 
jWILL BE SET IF PARITY BITS ARE BEING TESTED 

ITHIS BYTE IS USED TO DETERMINE IF MEMORY 
jMANAGEMENT IS AVAILABLE OR NOT 



fTHIS BYTE IS USED TO DETERMINE IF THE 
jTYPE OUT OF ERROR HAS BEEN ENABLED OR NOT 



JTHIS BYTE DETERMINES IF THE PROGRAM HAS FOUND 
fA PARITY ERROR 



ITHIS BYTE IS USED TO DETERMINE IF THE 
fPROGRAM HAS ENCOUNTERED ADDRESS ERROR 



fLOWER BYTE OF THIS WORD GIVES THE PASS NUMBER FOR 

fTHE SPECIFIC TEST WHEREAS THE UPPER BYTE 

I HAS BEEN USED BY DIFFERENT TEST FOR DIFFERENT PURPOSES 



.EVEN 



fHOLDS BANK UNDER TEST FOR "TST BNK XX" PRINTOUT, 



fTHlS BYTE DETERMINES THE NUMBER OF WORDS 

I TO BE TYPED 

iTHIS LOCATION IS USED TO SAVE THE CHARACTER 

iHIT BY THE OPERATOR 

lALSO IS USED AS TEMp IN ROUTINE SGTSIZ, 



fBACKGROUND PATTERN WRITTEN TO MEMORY, 

fHOLDS LOWEST TEST ADDRESS WHEN RELOCATED, 

ff »»»««»«»«##»»«»»»«««««««««#«»««»««««»«»»«*»»««#»«»«■««««»»««««»» 
fLOCATIONS TO BE MODXFIE® IF LIMITS SET BY OPERATOR 

LOWTWOl fHOLDS BITS 17tl6 OF LOW TEST ADD^RESS 

LOWADDl fHOLDS BITS 15t0 OF LOW TEST ADDRESS 



TKSa 


177560 


$KBB8 


177562 


$TPSs 


177564 


6TPB8 


177566 


SR08 


177572 


BAKPATi 


.WORD 


SWAPATi 


.WORD 


RELBOTi 


BEGIN-50 



DZKMA 


MACYH 


DZKMftB, 


pn 








000330 




000332 












000334 




000336 








000340 








000342 




000344 




000346 












0003S0 




000352 




000354 




000356 




000360 
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HIGHTWOl {HOLDS BITS I7|16 OF HIGH TEST ADDRESS 

HIGHADDi 37776 jHOLDS BITS 1510 OP HIGH TEST ADDRESS 



$HIMAX| 
8MAXMI 



17776 



{HOLDS BITS 17116 OF MAXIMUM AVAILABLE MEMORY 
{HOLDS BITS 1510 OF MAXIMUM AVAILABLE MEMORY 



MAXMEMi .WORD {MAXIMUM CURRENT VIRTUAL MEMORY UNDER TEST 

SAVMAXi .WORD 
SAVR4I .WORD 
SAVR5! .WORD 

{» SAVR6 POINTS TO WHERE THE PROGRAM STARTS EVEN WHEN RELOCATED, 

SAVR6I .WORD BEGIN {CONTAINS START ADDRESS WHEN RELOCATED ALSO, 

PARMAPl {MAP OF PARITY MODULES UNDER TEST, 

SAVLOCi {TEST 6 STORES ERROR INFO HERE 

PARSPI {SAVE SP DURING PARITY ERROR TRAp, 

PARPS( {SAVE PSW DURING PARITY ERROR TRAP, 

{NOTE-PARSP 4-PARPS ARE NEEDED SINCE THERE IS 
{IS NOT ENOUGH ROOM ON THE STACK (500"452) AND 
{SO THE STACK MUST BE RESET IN THE PARERR ROUTINE, 
{IN THIS CRUDE FASHION, 

|»364«>400 IS USED AS A STACK AREA BY ERRCHK ROUTINE FqR ERROR HISTORY PRINTOUT 
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^ 



laiiii^ 
■lili 



000400 
000400 
000402 
000404 
000406 
000410 
000412 
000414 
000416 
000420 
000420 
000421 
000422 
000424 
000426 



000430 
000431 



000432 000000 

000434 
000435 
000436 



000441 
000442 
000444 
000445 
000446 
000450 



.SBTTL 



,8400 

APT MAILBOX-ETABLE 



{ {»»»»»»» 

.EVEN 

$MAIL» 

SMSGTYl 

SFATALi 

STESTNj 

SPASSI 

SDEVCT{ 

SUNITI 

8MSGADI 

$MSGLG| 

SETABLEl 

$ENVi 

SENVMl 

$SWREG| 

SUSWRl 

SCPUOPj 

{* 

{* 

{* 

{# 

1* 

{» 

jMAMSll 

$MTYP1I 

{♦ 

{• 

t* 

{» 

$MADR1| 

{* 

8MAMS2I 

iMTyp2i 

8MADR2I 
$MAMS3l 
$MTYP3l 
8MADR3I 
$MAMS4| 
SMTYP4I 
SMADR4I 
lETENDl 
,MEXIT 



««««»»»»»«»#«»»»««»»««»«»«»««##»«»«»««»«»»«»»«««««» 



WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 

BYTE 
BYTE 
WORD 
WORD 
WORD 



.BYTE 
.BYTE 



.BYTE 
.BYTE 
.WORD 
.BYTE 
.BYTE 
.WORD 
.BYTE 
.BYTE 
.WORD 



AMSGTY 

AFATAL 

ATESTN 

APASS 

AOEVCT 

AUNIT 

AMSGAD 

AHSGLG 

AENV 

AENVM 

ASWREG 

AUSWR 

ACPUOP 



AMAMSI 
AMTYPl 



.WORD AMADRl 



AMAMS2 
AMTYP2 
AMADR2 
AMAMS3 
AHTYP3 
AMADR3 
AMAMS4 
AMTYP4 
AMADR4 



{{APT MAILBOX 
{{MESSAGE TYPE CODE 
{{FATAL ERROR NUMBER 
{{TEST NUMBER 
{{PASS COUNT 
{{DEVICE COUNT 
{{I/O UNIT NUMBER 
{{MESSAGE ADDRESS 
{{MESSAGE LENGTH 
{{APT ENVIRONMENT TABLE 
{{ENVIRONMENT BYTE 
{{ENVIRONMENT MODE BITS 
{{APT SWITCH REGISTER 
{{USER SWITCHES 
{{CPU TYPE, OPTIONS 
BITS 15-IIbCPU TYPE 

1 1 /04b01,11/05b02#11/20«03, 11/40804,1 1/45805 

11/70806, PDQ«07,Qal0 
BIT 108REAL TIME CLOCK 
BIT 9aFL0ATING POINT PROCESSOR 
BIT SsMEMORY MANAGEMENT 
{{HIGH ADDRESS, M,S. BYTE 
{{MEM, TYPE,BLK#1 
MEM, TYPE BYTE — (HIGH BYTE) 

900 N8EC CORE8001 

300 NSEC BIPOLARB002 

500 NSEC MOSa003 
{{HIGH ADDRESS, BLK«1 

MEM, LAST ADDR,83 BYTES, THIS WORD AND LOW OF «TYPE« ABOVE 
{{HIGH ADDRESS, M,S, BYTE 
{(MEN, TYPE, BLK«2 
{{MEM, LAST ADDRESS, BLK82 
{{HIGH ADDRESS, M,S,B¥TE 
{{MEM, TYPE, BLK«3 
{{MEM, LAST ADDRESS, BLK»3 
{{HIGH ADDRESS, M,S. BYTE 
{{MEM, TYPE, BLK«4 
{{MEM, LAST ADDRESS, BLK#4 



1269 
1270 



{ {«»»»»»»»»»»»**»*«»•»»»#»»#»«»»»»»*»#»»#»»»»»»«»»»»»»«##»»»»»»»» 
, SBTTL BEGIN OF AREA TESTED (+20) WHEN PROGRAM RELOCATES, 



DEKHR 


HAC¥il 


27C732) 


0S«AUG« 


DZKMAB^ 


Pit 


BEGIN OF AREA 1 


i273 








1274 


000430 


177S70 




1275 








1276 




000500 




1277 


000S00 


010706 




1278 








1279 


000502 


005746 




1280 


000504 


010637 


0003S0 


1281 


000510 


012737 


000070 


1282 


000516 


005037 


000300 


1283 


000522 


005037 


000314 


1284 


000526 


012700 


000114 


128S 


000S32 


012710 


005456 


1286 


000536 


^60720 




1287 


000540 


012710 


000340 


1288 


000544 


105737 


000405 


1289 


000550 


100002 




1290 


000552 


000167 


000542 


1291 








1292 


000556 


005737 


000406 


1293 


000562 


001402 




1294 


000564 


000167 


000374 


1295 


000570 


012704 


007744 


1296 


000574 


012700 


000377 


1297 


000600 


010037 


000316 


1298 


000604 


005001 




1299 


000606 


012124 




1300 


000610 


020127 


000400 


1J01 


000614 


103774 




1302 


000616 


005741 




1303 


000620 


010011 




1304 








130S 


000622 


020011 




1306 


000624 


001403 




1307 








1308 


000626 


004767 


005304 


CD 


000632 


000001 




cn 








1309 


000634 


000300 




1310 


000636 


001370 




1311 


000640 


005701 




1312 


000642 


001365 




1313 


000644 


012701 


000400 


1314 


000650 


014441 




1315 


000652 


005701 




1316 


000654 


001375 




1317 


000656 


012700 


000006 


1318 


000662 


012710 


000340 


1319 


000666 


012740 


000700 


1320 


000672 


005777 


177552 


1321 


000676 


000404 




1322 


000700 


022626 




1323 


000702 


012737 


000176 


1324 








1325 








1326 


000710 


105737 


000420 



SWRi 177570 iCHANGES TO SWBEG IF NO HARDWARE SWITCH REGISTER 



jSET UP STACK POINTER TO EQUAL BEGIN ADDRESS 





,8500 




BEGINt 


MOV 


PCSP 




TST 


»CSP) 




MOV 


SP#f#SAVR6 




MOV 


#PWRDN,ii#24 




CLR 


@#SPRERR 




CLR 


ptTYPCNT 




MOV 


#114, R0 




MOV 


#PARERR-,«6,I 




ADD 


PC,(R0)4' 




MOV 


#340, (R05 




TSTB 


P#REL 




BPL 


ONEPAS 




JMP 


TSTREL 


ONEPASI 


TST 


§#8PASS 




BEG 


TSTRP 




JMP 


SETSTK 


TSTRPJ 


MOV 


#ENDPRG ,R4 




MOV 


#377, R0 




MOV 


R0,?#BAKpAT 




CLP 


Rl 


211 


MOV 


CRn + ,(R4) + 




CMP 


R1,#SMAIL 




BLO 


2S 


3$I 


TST 


-(Rl) 


4S: 


MOV 


R0,CR1) 




CMP 


R0,(RI) 




BEQ 


6$ 




JSR 
1 


PCFATERR 


681 


SWAB 


R0 




BNE 


48 




TST 


Rl 




BNE 


3S 




MOV 


#$MAIL,R1 


8$S 


MOV 


-(R4),»(RU 




TST 


Rl 




BNE 


8$ 


SETSWRI 


MOV 


#6,R0 




MOV 


#340, (R0) 




MOV 


#4S,-(R0) 


2$! 


TST 


fSWR 




BR 


5S 


4$l 


CMP 


(SP)+,CSP)+ 




MOV 


#SWPEG,9»SWR 



ISAVE SP FOR FUTURE USE 

^PREPARE FOR ANY FUTURE POWER DOWN 



jPREPARE TO SETUP PARITY TRAP VECTOR 
) 
;T0 PARERR 
jAND PSW OF 340 
lis THIS CODE RELOCATED? 
jBRANCH IF NO 
jTHIS CODE IS RELOCATED SO GET TEST SIZE, 

lis THIS THE FIRST PASS? 

^BRANCH IF YES (TEST TRAP CATCHER ADDRESSES) 

J GET THE TEST SIZE 

iLOAD R4 with THE ADDRESS OF THE END OF THE PROGRAM 



jSAVE FROM 0000 TO BEGIN»30 AT END OF PROGRAM FOR NOW 



;PREPARE TO TEST THE TRAP VECTORS 

jCHECK THE TRAP VECTORS FOR THE CAPABILITY 

jOF HOLDING 0'S & 1 'S 

;IS THE DATA OK? 

yBRANCH IF YES 

J4»ERR0R» REPORT ERROR MESSAGE AND HALT AT FATHLT 
j«#»»«#ERROR NUMBER 1»»«#«« 



;IF WE HAVE NOT REACHED THE LOWEST MEMORY LOCATION 
jTHEN REPEAT FROM 3S 



{RESTORE TRAP CATCHER ETC, 



jSET UP TIME OUT TRAP PSW 

J AND THE RETURN ADDRESS 

jDOES THE SWITCH REGISTER POINTED BY SWR EXIST 7 

jBRANCH IF YES 

JRESTORE THE STACK POINTER 

;AND PLACE THE ADDRESS OF THE SWITCH REGISTER 

jDESIGnED for the COMPUTERS NOT HAVING HARDWARE 

JSWITCH REGISTER AND RUNNING STAND ALONE 

iRUNNING UNDER APT? 



DZKMA MACYll 
DZKMAB^PU 
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1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
(1) 
(1) 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
S376 
1377 
1378 
1379 
1380 



000714 001403 

00071b 012737 000422 



000724 012703 
000730 013737 



000736 
000744 
000750 

000752 
000756 
000762 
000764 



000772 



013737 
105737 
100021 

012701 
162701 
105711 
001006 
020127 
101371 



000340 
000330 
000332 
000421 



000334 
000336 



000774 004767 005136 
001000 000002 



31002 004767 006302 

01006 004767 006276 

01012 000446 

01014 032777 000100 

01022 001042 



01024 010401 

01025 012710 001042 
01032 011111 

01034 062701 000002 

01040 000774 



001042 022626 

001044 004767 005770 

001050 105737 000276 

001054 001414 

0010S6 012710 001070 

001062 012701 020000 



BEQ 
MOV 



APTSIZ 

#SSWREG,0«SWR 



JBPANCH IF NO 

jSET SWR EQUAL TO APT SWITCH REGISTER, 



jAPTSlE- THIS ROUTINE WILL SEARCH THE APT MEMORY ETABLE AND WHEN 

fA NON ZERO TYPE IS FOUND WILL SETUP TO TEST TO GIVEN HIGH ADDRESS. 

J IF APT DEFINES SIZE THE LOW TEST ADDRESS MUSTb00000 , (DUE TO ETABLE FORMAT) 

J FLOW J 

J IF BLOCK 4 (OR 3,2,1) TYPE NON ZERO THEN GET APT HIGH ADDRESS AND EXIT, 

J ELSE SEND ERROR S3 

jNOTEi THE MEMORY TYPE IS IGNORED SINCE ALL TESTS ARE RUN REGARDLESS OF MEMORY TYPE, 



APTSIZ! MOV 
MOV 
MOV 
TSTB 
BPL 

MOV 
IS! SUB 
TSTB 
BNE 
CMP 
BHI 

JSR 
2 

2SI JSP 
JSR 
BRTPSZl BR 

TRYSRl BIT 
BNE 



#MAXMEM,R3 jPOINT R3 TO MAXHEM, 

P#HIGHTW0,9#$HIMAX >IN CASE NO SELF SIZING DONE, 
P«HIGHADD,i«8MAXM jlN CASE NO SELF SIZING DONE, 
?#8ENVM jDOES APT ALLOW SELF SIZING? 

TRYSR jBRANCH IF YES 



S$MTYP44.4,R1 

#4,R1 

(Rl) 

2S 

R1,«SMTYP1 

18 

PCFATERR 



PCGETADR 
PCGETADR 
TYPSIZ 

#i00,i>SWR 
TYPSIZ 



SLFSlZi 
281 


MOV 
MOV 
MOV 


R4,R1 
#48, (R0) 
(R1),CR1) 




ADD 
BR 


#2,R1 
28 


481 


CMP 
JSR 


(SP)+,(SP)* 

PCMEMMNG 


6§l 


TSTB 
BEQ 
MOV 
MOV 


i#MMAVA 
128 

#88, (R0) 
#20000, Rl 



jPOINT Rl TO BLOCK TYpE 4(+4) 
jPOINT Rl TO NEXT BLOCK TYPE, 
J IS THE BLOCK TYPE NON ZERO? 
jBRANCH IF YES (MEMORY EXISTS) 
jALL APT BLOCK TYPES BEEN CHECKED? 
IBRANCH IF NO 

!*ERROR« REPORT ERROR MESSAGE AND HALT AT FATHLT 
l««#«««ERROR NUMBER 2»«#*»* 

jGO SET MAXIMUM APT ADDRESS INTO SMAXM * SHIMAX 
IGO SET MAXIMUM APT ADDRESS INTO HIGHADD+HIGHTWO 
J TYPE THE SIZE OF MEMORY UNDER TEST 

!USER DEFINED MEMORY TEST BOUNDARIES?? 
iBRANCH IF YES (DON'T SIZE MEMORY) 



J SETUP Rl AND R4 TO THE LOWEST ADDRESS OF MEMORY 

JSET UP RETURN ADDRESS FROM TIME OUT TRAP TO 48 

jWRlTE A MEMORY LOCATION INTO ITSELF AND TRAP IF NONEXIS 

;ADD 2 TO THE ADDRESS POINTER 
IKEEP ON SIZING UP THE MEMORY UNTIL 
jNXM TRAP (TIME OUT TRAP) IS ENCOUNTERED 

JRESTORE THE STACK POINTER 

J SERVICE MEMORY MANAGEMENT IF IT IS AVAILABLE 

jAND IF IT HAS TO BE TESTED 

J SEE IF MEMORY MANAGEMENT HAS TO BE TESTED 

jIF NO MEM, MANG, THEN GO TO 121 

J SET UP THE RETURN ADDRESS FROM TRAP TO 8$ 

jBEGIN CHECKING MEMORY ABOVE 28K 
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1381 


001066 


000761 




1362 


001070 


022626 




1383 


001072 


022701 


160000 


13B4 








1385 








1386 


001076 


001003 




1387 


001100 


004767 


006106 


1388 


001104 


000764 




1389 


001106 


024341 




1390 








1391 


001110 


004767 


006104 


1392 








1393 


001114 


024343 




1394 


001116 


004767 


006076 


1395 








1396 


001122 


005743 




1397 


001124 


005043 




1398 


001126 


005043 




1399 


001130 


012720 


000104 


1400 


001134 


010403 




1401 








1402 


001136 


012701 


000324 


1403 


001142 


004767 


005400 


1404 


001146 


004767 


005546 


1405 


00U52 


004767 


005302 


1406 


001156 


000055 




1407 








1408 


001160 


004767 


005534 


1409 


001164 


012703 


000330 


1410 


001170 


004767 


006130 


1411 








1412 


001174 


010401 




1413 








1414 


001176 


062704 


000022 


1415 








1416 


001202 


005302 




1417 


001204 


002374 




1418 


001206 


010437 


000310 


1419 


001212 


005021 




1420 


001214 


020104 




1421 


001216 


101775 




1422 


001220 


012737 


157776 


1423 


001226 


005723 




1424 


001230 


001004 




1425 


001232 


021300 




1426 


001234 


103002 




1427 


001236 


011363 


000002 


1428 








1429 








1430 








1431 


001242 


004767 


006136 


1432 


001246 


005723 




1433 


001250 


011305 




1434 








1435 








1436 











BR 


21 


BSl 


CMP 


CSP)*,(SP)* 




CMP 


#160000fRl 




BNE 


12$ 




JSR 


PCUPMM 




BR 


63 


1231 


CMP 


»(R3),»CR1) 




JSR 


PCPUTADR 




CMP 


»CR3),»(R3) 




JSR 


PC#PUTADR 




TST 


»(R3J 




CLR 


"(RS) 




CLR 


»CR3) 


TYPSlEl 


MOV 


#BUSER,CR0). 




MOV 


R4,r3 




MOV 


iLOWTWOfRl 




JSR 


PCPCRLF 




JSR 


PCOCTTYP 


TYPMEMI 


JSR 


PCf 8TYPE 




.ASCIE 


/-/ 




.EVEN 






JSR 


PCfOCTTYP 


SETSTKi 


MOV 


#H1GHTW0,R3 




JSR 


PC»$GTSIZ 



J$18,,R4 





DEC 


R2 




BGE 


4$ 




MOV 


P4,P#ENDSTK 


6SI 


CLR 


(RD* 




CMP 


R1,R4 




BLOS 


6$ 




MOV 


#157776, 0#MAXMEM 




TST 


(R3) + 




BNE 


SAVLDR 




CMp 


(R3)»R0 




BHIS 


SAVLDR 




MOV 


CR3),2(R3) 


SAVLDRl 


JSR 


PCCLPMM 




TST 


(R3)4. 




MOV 


CR3)#R5 



, RESTORE STACK POINTER 

jIF Rl DID NOT READ ALL THE LOCATIONS POINTED BY 

;PAGE ADDRESS REGISTER 6 THEN IT HAS REACHED THE 

^MAXIMUM AVAILABLE MEMORY 

jIN WHICH CASE GO TO 12S 

lOTHERWiSE GO TO UPDATE MEM, MANG, REGISTERS 

{CAUSE R3 TO POINT TO LOCATION SMAXM AND Rl 

JTO THE MAXIMUM AVAILABLE MEMORY 

I GO TO THE SUBROUTINE TO PLACE THE ADDRESS IN Rl 

|AT LOCATIONS SMAXM AND IHIMAX 

jMAKE R3 POINT TO HIGHAOD 

;PLACE THE ADDRESS IN Rl AT LOCATIONS HIGHADD 

}AND HIGHTWO 

iCLEAR THE LOCATION LOWADD 

jAND LOWTWO 

J SET UP VECTOR FOR ANY FUTURE TRAP 

JSET R3 TO POINT TO THE LOWEST AVAILABLE MEMORY 

fLOCATION 

iTYPE CR/LF 

jTYPE LOW TEST ADDRESSE (LOWTWO*LOWADD) 

J TYPE "»•• 



iTYPE HIGHEST TEST ADDRESS (HIGHTWO+HIGHADD) 

jMAKE R3 POINT TO THE HIGH ORDER BITS OF TOp ADDRESS 

J GET THE BITS 13»l7 OF THE TOP ADDRESS 

{PLACED IN BITS 0«4 OF R2 

?SET Rl TO LOWEST TEST ADDRESS 

J APPEND THE ERROR STACK FOR THE MEMORY UNDER 
JTEST TO THE END OF THE PROGRAM 



;SAVE THE ADDRESS OF THE END OF THE ERROR STACK 
jCLEAP THE ERROR STACK 



ISET MAXMEM TO MAXIMUM VIRTUAL ADDRESS 
{TESTING MEMORY MANAGEMENT? 

{BRANCH IF YES (GO SAVE LOADERS AT TOp OF VIRTUAL MEMORY 
{IS THE VIRTUAL ADDRESS ABOVE 1577761 
{BRANCH IF YES (GO SAVE LOADERS) 
{OTHERWISE MAKE THE CONTENTS OF LOCATION MAXMEM 
{EQUAL TO THE MAXIMUM AVAILABLE MEMORY 
{AND FALL INTO SAVE LOADERS, 

{ DISABLE THE MEMORY MANAGEMENT UNIT 

{MAKE R3 TO POINT TO THE LOCATION MAXMEM 

{R5 CONTAINS THE ADDRESS OF MAXIMUM AVAILABLE MEM, 



{IF ONLY 4K BEING TESTED DON'T SAVE LOADERS 
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1437 


001252 


020527 


017776 




CMP 


R5, #17776 


1438 


001256 


103416 






BLO 


4$ 


1439 














1440 


001260 


162705 


000276 


3Sl 


SUB 


#276, R5 


1441 


001264 


005737 


000042 




TST 


e#42 


1442 


001270 


001406 






BEQ 


2S 


1443 


001272 


023737 


000042 000046 


CMP 


@»42f9#46 


1444 


001300 


001402 






BEQ 


2S 


1445 


001302 


162705 


005674 




SUB 


»<1502,*2>,R5 


1446 


001306 


012524 




28J 


MOV 


(R5) + »(R4)<^ 


1447 


001310 


020513 






CMP 


R5,(R3) 


1448 


001312 


101775 






BLOS 


2$ 


1449 


001314 


012323 




4SI 


MOV 


(R3)+,(R3)+ 


1450 


001316 


010423 






MOV 


R4,(R3)+ 


1451 














1452 


001320 


010537 


000346 


TSTRELi 


MOV 


R5,i#SAVR5 


1453 


001324 


004767 


006054 


TSTSlEl 


JSR 


PCCLRMM 


1454 


001330 


005745 






TST 


-(R5) 


1455 


001332 


012703 


000324 


l$l 


MOV 


#L0WTW0,R3 


1456 


001336 


005723 






TST 


(R3) + 


1457 














1458 


001340 


001003 






BNE 


28 


1459 


001342 


021327 


157776 




CMP 


(R3), #157776 


1460 














1461 


001346 


103411 






BLO 


48 


1462 


001350 


032777 


010000 177072 2$l 


BIT 


#10000, @SWR 


1463 


001356 


001003 






BNE 


3$ 


1464 


001360 


004767 


004552 




JSR 


PCFATERR 


(1) 


001364 


000003 






3 




(1) 














1465 


001366 


000167 


003526 


3S| 


JMp 


TSTMM 


1466 


001372 


020423 




4$l 


CMP 


R4,(R3)4- 


1467 


001374 


103002 






BHIS 


6$ 


1468 


001376 


016304 


177776 




MOV 


'•2(R3),R4 


1469 


001402 


005723 




681 


TST 


(R3) + 


1470 


001404 


001003 






BNE 


8$ 


1471 


001406 


021305 






CMP 


(R3)»R5 


1472 














1473 


001410 


101001 






BHI 


6$ 


1474 


001412 


011305 






MOV 


(R3),R5 


1475 


001414 


105737 


000405 


eg! 


TSTB 


@«REL 


1476 


001420 


100014 






BPL 


10$ 


1477 


001422 


013704 


000322 




MOV 


e#RELB0T,R4 


1478 


001426 


020527 


017776 




CMP 


R5, #17776 


1479 


001432 


103402 






BLO 


9$ 


1480 


001434 


012705 


017776 




MOV 


#17776, R5 


1481 














1482 


001440 


020405 




9$l 


CMP 


R4,R5 


1483 


001442 


103403 






BLO 


10S 


1484 


001444 


004767 


004466 




JSR 


PCFATERR 


(1) 


001450 


000004 






4 




(1) 














1485 


001452 


012703 


000342 


1031 


MOV 


SSAVMAX»R3 


1486 


001456 


011343 






MOV 


(R3)»-(R3) 


1487 


001460 


062713 


000002 


MEHTSTI 


ADD 


#2,(R3) 


1488 















{ONLY TESTING 4K MAX? 

{BRANCH IF YES (DON'T SAVE LOADERS) 

{PREPARE TO SAVE 300 BYTES OF THE LOADERS 

{IS THE PROGRAM RUNNING UNDER ACT OR XXDP ? 

{IF NOT THEN GO TO 2S 

{ARE WE RUNNING UNDER XXDP CHAIN MODE? 

{BRANCH IF NO 

{SAVE 1500, WORDS FOR XXDP CHAIN MODE 

{SAVE LOADER 



{SAVE THE CONTENTS OF LOCATION MAXMEM IN SAVMAX 
{AND THE CONTENTS OF r4 AT SAVR4 

{SAVE HIGHEST VIRTUAL ADDRESS-l-2 

{GO TO DISABLE MEMORY MANAGEMENT UNIT 

{SET R5 BACK TO HIGHEST VIRTUAL ADDRESS 

{PREPARE TO LOAD R4 AND R5 WITH THE MEMORY BOUNDRIES 

{IF THE BITS 16,17 OF THE LOWEST LOCATION UNDER 

{TEST ARE NON ZERO 

{THEN GO TO 2$ 

{IF THE LOWEST LOCATION UNDER TEST IS HIGHER THAN 

{157776 THEN GO TO TEST MEMORY MANAGEMENT 

{IS MEMORY MANAGEMENT SELECTED? 

{YES ALL IS WELL 

{«ERROR» REPORT ERROR MESSAGE AND HALT AT FATHLT 

{*##«»»ERROR NUMBER 3«»»»** 

{GO TO TEST MEMORY MANAGEMENT 



{ADJUST R4 TO POINT TO THE LOWEST LOCATION UNDER TEST 

{IF BITS 16«17 OF HIGHEST LOCATION TO BE TESTED 

{ARE NON ZERO THEN GO TO 8$ 

{OTHERWISE SEE IF THE HIGHEST LOCATION TO BE 

{TESTED IS HIGHER THAN 157776 

{IF SO THEN GO TO 8$ 

{MODIFY R5 

{ARE WE RELOCATED,? 

{BRANCH IF NO 

{SET BOTTOM TEST ADDRESS WHEN RELOCATED, 

{ARE WE RELOCATED IN BANK 0? 

{BRANCH IF YES 

{ELSE SET HIGH MEMORY UNDER TEST84K 

{IS LOW LIMIT LOWER THAN HIGH LIMIT? 

{BRANCH IF YES 

{«ERRORi» REPORT ERROR MESSAGE AND HALT AT FATHLT 

{»«»«»«ERROR NUMBER 4#»*«»« 



{RESTORE THE CONTENTS OF MAXMEM 

{MAKE THE CONTENTS OF MAXMEM a MAXIMUM AVAILABLE 

{MEMORY t2 



DEKMA MACYll 27(732) 05»AUG-76 t3l43 PAGE 6«4 
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TST (P53+ 

iCLEAR MEMORY UNDER TEST 

CLRMEMi MOV #1,R2 

JSR PC, PARITY 
R5,R0 
»CR05 
R0,R4 
2S 



1489 


001464 


005725 




1490 








1491 








1492 








1493 


001466 


012702 


000001 


1494 


001472 


004767 


006006 


1495 


001476 


010500 




1496 


001500 


005040 




1497 


001502 


020004 




1498 


001504 


101375 




1499 


001506 


012702 


000316 


1500 


001512 


012212 




1501 


001514 


000312 




1502 


001516 


017702 


176726 


1503 


001522 


042702 


177760 


1504 








1505 








1506 








1507 








1508 








1509 








1510 


001526 


005037 


000306 


1511 


001532 


110237 


000404 


1512 








1513 


001536 


010401 




1514 


001540 


010246 




1515 


001542 


012703 


000376 


1516 


001546 


004767 


005446 


1517 








1518 








1519 


001S52 


005743 




1520 








1521 


001554 


004767 


005544 


1522 








1523 


001560 


010400 




1524 








1525 


001562 


010401 




1526 


001564 


010403 




1527 


001566 


012602 




1528 


001570 


006302 




1529 


001572 


060702 




1530 


001574 


066207 


000004 


1531 








1532 








1533 








1534 


001600 


000102 




1535 


001602 


000334 




1536 


001604 


000434 




1537 


001606 


000544 




1538 


001610 


001012 




1539 


001612 


001122 




1540 


001614 


001270 




1541 


001616 


001424 




1542 


001620 


001646 




1543 


001622 


002174 




1544 


001624 


002246 





2$t 



MOV 

CLR 

CMP 

BHI 

MOV 

MOV 

SWAB 

MOV 

BIC 



49 

#BAKPAT,R2 
CR2)*#(R2) 
(R2) 
§!SWR,R2 
#177760, R2 



lAND SET RSbMAX MEM0RY'«-2 



ISET R2 TO ENABLE PARITY MODULE CODE, 
lENABLE PARITY IP WANTED AND AVAILABLE, 



;BEGIN CLEARING THE MEMORY FROM THE TOP 
lUNTIL THE BOTTOM IS REACHED 



yWRITE SWAPPED BAKPAT IN LOCATION SWAPAT 

jLOAD R2 WITH THE OPTIONS STORED AT SSWREG 

lONLY LEAVE THE LOWER 4 BITS 0F $SWREG IN R2 TO GO TO 

jTHE TEST « SPECIFIED [DEFAULT IS TEST#03 



) 



jENTER HERE FROM TSTSCP ROUTINE AT END OF SUBTEST 



CLR 
MOVB 

MOV 
MOV 
MOV 
JSH 



g«PASFLG 
R2,#«$TESTN 

R4,R1 
R2,-(SP) 
#376, R3 
PC,PUTADR 



JSR 


PC, 


SGTSIE 


MOV 


R4. 


R0 




MOV 


P4, 


Rl 




MOV 


R4 


R3 




MOV 


tSP)f 


R2 


ASL 


R2 






ADD 


PC, 


R2 




ADD 


TBL-. 


P2) 


TST0-TBL 






TSTl-TBL 






TST2-TBL 






TST3-TBL 






TST4-TBL 






TST5-TBL 






TST6« 


.TBL 






TST7-TBL 






TST10-TBL 






TSTll 


-TBL 






TST12-TBL 







IINIT SUBTEST PASS FLAG, 

;SET UP STESTN WITH THE TEST NUMBER GOING 

I TO BE EXECUTED 

ILOAD Rl WITH THE LOWEST LOCATION UNDER TEST 

ISAVE R2 ON THE STACK 

fPOINT R3 TO SCRATCH STACK 

jGO TO GENERATE 18 BIT ADDRESS OUT OF THE ADDRESS 

»STORED IN Rl AND STORE IT IN LOCATIONS (R3) 

jAND (R3-2) 

jCAUSE R3 TO POINT TO THE HIGH ORDER BITS OF THE 

118 BIT ADDRESS 

; PLACE BITS 13-17 OF THE ADDRESS IN BITS 

10-4 OF R2 

JPLACE THE ADDRESS OF THE LOWEST LOCATION UNDER 

J TEST IN R0 

tin Rl 

;AND IN R3 

jRESTORE R2 



IGO TO THE TEST # 
;STORED IN BITS 0-3 OF SWITCH REGISTER 



^RELATIVE 


ADDRESS 


OF 


TEST 


# 


JRELATIVE 


ADDRESS 


OF 


TEST 




^RELATIVE 


ADDRESS 


OF 


TEST 




^RELATIVE 


ADDRESS 


OF 


TEST 




jRELATlVE 


ADDRESS 


OF 


TEST 




jRELATIVE 


ADDRESS 


OF 


TEST 




JRELATIVE 


ADDRESS 


OF 


TEST 




^RELATIVE 


ADDRESS 


OF 


TEST 




fRELATlVE 


ADDRESS 


OF 


TEST 


# 10 


; RELATIVE 


ADDRESS 


OF 


TEST 


# U 


JRELATIVE 


ADDRESS 


OF 


TEST 


# 12 
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TST13-TBL 
RELOC-TBL 





001626 


002520 




001630 


003146 




















1550 






1551 







JRELATIVE ADDRESS OF TEST « 13 
JRELATIVE ADDRESS OF ROUTINE 'RELOC 



»R5 IS POINTING TO THE TOP OF THE MEMORY TO BE TESTED-f2 

JR4 & R0 ARE POINTING TO THE LOWEST ADDRESS OF MEMORY TO BE TESTED 
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1556 








1557 








1558 








1559 








1560 








1561 








1562 








1563 








1564 








1565 








1566 








1567 








1568 


001632 


105737 


000420 


1569 


001636 


001002 




1570 


001640 


004767 


006020 


1571 








1572 


001644 


113702 


000404 


1573 








1574 








1575 


001650 


005237 


000410 


1576 


001654 


032777 


002000 


1577 


001662 


001401 




1578 


001664 


000000 




1579 








1580 


001666 


032777 


040000 


1581 


001674 


001320 




1582 


001676 


105202 




1583 


001700 


000712 





I* 






SCOPE ROUTINE 



PROGRAM COMES TO THIS ROUTINE AFTER COMPLETION OF EACH TEST AND 

IF CNTRli«C TYPED GOTO ERROR HISTORY TYPE ROUTINE, 

IF SRa 2000 (BIT10) THEN HALT 

IF SRa 40000 (BIT14) THEN LOOP ON TEST DEFINED BY SR BITS<3|0> 

ELSE CONTINUE TO NEXT TEST, 



TSTSCPl TSTB iiSENV 
BNE CNTSCP 
JSR PCCHECKC 



CNTSCPl MOVB 



i#STESTN,R2 



INC e«$DEVCT 

BIT »2000,0SWR 

BEQ TSTGO 
SWHALTl HALT 



176554 TSTGOl 



BIT #40000, 9SWR 

BNE LOOP 

INCB R2 

BR CONT 



jARE WE RUNNING UNDER APT? 

J IF SO THEN GO TO CNTSCP 

jTEST FOR CONTROL-C AND IF TYPED GO 

yPRiNT ERROR HISTORY AND HALT AT FATHLT, 

}PLACE THE TEST NUMBER IN THE LOWER BYTE OF R2 

fSINCE THERE ARE LESS THAN 377 TESTS UPPER BYTE 

;0F R2 WILL BE 

ITELL APT WE ARE STILL RUNNING OKAY 

J IS THE PROGRAM GOING TO HALT AFTER EACH TEST? 

J IF NOT THEN GO TO 2$ 

jHALT AT END OF TEST SWITCH SET, 

7 IS THE PROGRAM GOING TO LOOP ON TEST 

J IF SO THEN GO TO THE STARTING OF THE SAME TEST 

|G0 TO CONT AND CONTINUE EXECUTING THE NEXT TEST 
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^ 



1596 








C3) 








(4) 








(4) 








(4) 








(4) 








(4) 








(4) 








(4) 








(4) 








(4) 








(3) 








(2) 


001702 


105737 


000404 


1597 


001706 


001403 




1598 


001710 


004767 


004222 


(1) 


001714 


000005 




(1) 








1599 


001716 


012703 


177777 


1600 


001722 


010401 




1601 


001724 


010310 




1602 


001726 


020001 




1603 


001730 


001417 




1604 


001732 


005711 




1605 


001734 


001430 




1606 


001736 


020311 




1607 








1608 








1609 


001740 


001004 




1610 


001742 


012767 


000006 


(U 








1611 


001750 


000403 




1612 


001752 






CD 


001752 


012767 


000007 


(1) 








1613 


001760 


010046 




1614 


001762 


105237 


000301 


1615 


001766 


000407 




1616 


001770 


020311 




1617 


001772 


001411 




1618 


001774 


012767 


000010 


(1) 








1619 


002002 


010046 




1620 


002004 


010300 




1621 


002006 


004767 


003566 


1622 


002012 


000000 




1623 


002014 


012600 




1624 








1625 


002016 


013706 


0003S0 


1626 


002022 


062701 


020000 


1627 








1628 








1629 


002036 


020105 




1630 








1631 


002030 


103736 




1632 








1633 


002032 


I0S737 


000431 



f»TEST 



f»(l) 



f»{2) 



l»(3J 



TEST FOR PROPER BANK SELECTION 

THIS TEST ASSUMES THAT THE MEMORY IS IN A STATE 
OF ALL 0'S AND R0 HAS THE ADDRESS OF THE LOWEST 
LOCATION UNDER TEST 

IT CHECKS FOR PROPER BANK SELECTION BY WRITING 
I'S IN A LOCATION AND CHECKING FOR 0*S IN THE SAME 
LOCATIONS OF OTHER 4K BANKS OF THE MEMORY 
[I.E. LOCATIONS LIKE 7766 AND 27766 ETC,] 

THIS TEST ALSO CHECKS TO SEE THAT NONE OF THE NON EXIST- 
|« ING BANK RESPOND WHEN THEY ARE ADDRESSED 
} I »«»««»«»»»#«»»»#««»»«»»#»««#««»»«««#»«»«»»#»»«#»»»»««»»««»««««« 
TST0I TSTB Pi$TESTN yCHECK FOR PROPER TEST SEQUENCE 
BEQ ,♦10 

JSR PCSEOERR |*ERROR» REPORT ERROR MESSAGE AND HALT AT FATHLT 
5 ;»«»»»«ERROR NUMBER 5»»ft««« 



IRI 8 ADDRESS OF LOWEST LOCATION OF MEMORY UNDER TEST 

ISET ALL THE BITS AT (R0) 

;IS R0 POINTING TO THE SAME MEMORY LOCATION AS Rl 

I IN WHICH CASE CHECK FOR ALL I'S AT (Rl) 

^OTHERWISE CHECK (Rl) FOR ALL 0«S 





MOV 


#177777, R3 


Hi 


MOV 


R4,R1 




MOV 


R3,(R0) 


281 


CMP 


R0,R1 




BEQ 


48 




TST 


(Rl) 




BEQ 


58 




CMP 


R3.(R1) 




BNE 


38 


000042 


MOV 


»6,128 




BR 


108 


3$i 






000032 


MOV 


#7,128 


1081 


MOV 


R0,-(SP) 




INCB 


0«8ADERR 




BR 


118 


4$l 


CMP 


R3,(R1) 




BEQ 


58 


000010 


MOV 


#10,128 




MOV 


R0,»(SP) 




MOV 


R3,R0 


ll$t 


JSR 


PC, ERROR 


1281 


.WORD 






MOV 


(SP)*,R0 


581 


MOV 


9«SAVR6,SP 




ADD 


#20000, Rl 




CMP 


R1,R5 




BLO 


2$ 




TSTB 


i«8ENVM 



|IF Rl IS NOT EQUAL TO R0 AND (Rl) 
IDOES NOT CONTAIN ALL 0'S THEN 
iCHECK TO SEE IF (R0) a (Ri) 

;»ERRORft SETUP ERROR NO, IN 128 
;tf«««««ERROR NUMBER i6««»*»« 



}«ERROR« SETUP ERROR NO, IN 128 
;»«#«#»ERROR NUMBER #7«#«»«» 
;SAVE R0 0N STACK 
;AN ADDRESSING ERROR IS SUSPECTED 

iCHECK (Rl) FOR ALL I'S 

t«ERROR« SETUP ERROR HO, IN 138 
l««««««ERROR NUMBER «}0«»«««» 
I SAVE R0 ON STACK 

fGO TO THE ERROR SUBROUTINE 

TERROR NUMBER TO BE REPORTED HILL BE PLACED HERE 

} RESTORE R0 

I RESTORE THE STACK POINTER 

fCAUSE Rl TO POINT TO THE SAME CHIP 

fLOCATION IN THE NEXT 4K BANK OF MEMORY 

}BY ADDING 1 TO THE 14TH BIT OF ADDRESS XN Rl 

iCOMPARE Rl WITH THE HIGHEST MEMORY 

ILOCATION WHICH IS STORED XN R5 

}IF Rl LESS THAN R5 THEN REPEAT THE TEST FROM 28 

fHAS APT INHIBITED SIZING? 
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1634 


002036 


100430 




1633 


002040 


032777 


000100 




002046 


001024 














0020S0 


020137 


000340 












002054 


103760 






002056 


012702 


000006 




002062 


012712 


000340 




002066 


012742 


177722 




002072 


060712 






002074 


020127 


157776 




002100 


101004 






002102 


011111 






002104 


004767 


004026 




002U0 


000011 














002U2 


012722 


000006 




002U6 


003012 






002120 


005010 














002122 


062700 


020000 




















003126 


020005 














002130 


103674 






002132 


000637 












1662 
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100 176402 



SEO 0034 





BMI 


8$ 




BIT 


#100,iSWR 




BNE 


8S 




CMP 


Pl,i#MAXMiM 




BLO 


5$ 




MOV 


#6,B2 




MOV 


#340, (R2) 




MOV 


#SI-,»6,«.CB23 




ADD 


PC,(R2) 




CMP 


Rl, #157776 




BHI 


6$ 




MOV 


(B1)#(RU 




J8R 


PCFATERR 




11 




6$i 


MOV 


#6,(B2)-^ 




CLR 


CR2) 


Bli 


CLB 


(R0) 




ADD 


#20000fR0 



BLO 
BR 



R0»R5 



1$ 

TSTSCP 



IBRANCH ir YES CDON*T TEST N0N«EXISTENT MEMORY) 

iHAS USER INHIBITED SIZING? 

iBRANCH ir YES (DON'T TEST NON-EXISTENT MEMORY) 

lis Rl LOWER THAN THE MAXIMUM AVAILABLE 

I MEMORY 7 

I IF SO THEN GO TO 5$ 

iMAKE R2 POINT TO TRAP VECT0R4'2 FOR NXM 

ISET PSW TO 340 

ISET UP RETURN ADDRESS FROM TRAP TO 5$ 

;SEE IF Rl HAS CROSSED 28K BOUNDRY OF VIRTUAL ADDRESS 
lIN WHICH CASE GO TO 6$ 

ITRY TO WRITE TO NON-EXISTENT MEMORY (SHOULD TRAP) 
|»ERROR« REPORT ERROR MESSAGE AND HALT AT FATHLT 
l««#«»«-ERROR NUMBER ll##»*«« 



jRESTORE TRAP VECTOR 



{CAUSE R0 TO POINT TO THE SAME CHIP 

ILOCATION IN THE NEXT 4K MEMORY BANK 

fBY ADDING 1 TO THE 14TH BIT OF ADDRESS IN R0 

ICOMPARE R0 WITH THE HIGHEST MEMORY 

{LOCATION WHICH IS STORED IN R5 , 

?IF R0 LESS THEN REPEAT THE TEST 



002134 122737 
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166S 

(3) 

(4) 

(43 

(3) 

(2) 

1669 

1670 

1671 

1672 

(1) 

(1) 

1673 

1674 

1675 

1676 

1677 

1678 

(1) 

(1) 

1679 

1680 

1681 

1682 

1683 

1684 

1685 

1686 

1687 

1688 

1689 

1690 

1691 

1692 

1693 

1694 

1695 

1696 

1697 

1698 

1699 
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002142 
002144 
002150 

002152 
002156 
002160 
002162 
002164 
002166 
002172 



002174 
002176 

002200 



002214 
002216 
002220 



002226 

002230 
002232 



001403 
004767 
000012 

012700 
010002 
010011 
020011 
001403 
004767 
000013 



005702 
001406 
006300 



002202 103366 



002204 
002206 
002212 



012700 
000762 

000261 
006100 
103757 



177776 



002222 062701 020000 



020105 
103750 
000737 



>»TEST 1 CHECK DI/DO LINES 

I»(l) THIS TEST CHECKS THE DATI/DATO LINES BY SHIFTING 

I* A 1 IN THE WORD DIRECTION 

TSTII CMPB #l,gi#STESTN jCHECK FOR PROPER TEST SEQUENCE 



|«ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
;»«#«««ERROR NUMBER 12^»*^«« 



•SET R2al 

{MOV 1 AT LOCATION (Rl) 

{COMPARE PI WITH THE CONTENTS OF LOCATION (Rl) 

{»ERROR* REPORT ERROR MESSAGE 
l»»»«»#ERROR NUMBER 13««»*«» 



{ARE WE SHIFTING A IN DATA DIRECTION? 

{IF SO THEN GO TO 5$ 

{SHIFT THE 1 BROUGHT IN AT 1$ IN 

{DATA DIRECTION 

{IF THE 1 HAS NOT BEEN SHIFTED THRU 

{THE 16 DATA BITS THEN REPEAT FROM 2S 

{INITIATE SHIFTING OF IN DATA DIRECTION 



{SET C BIT 

{SHIFT A 16 TIMES IN DATA DIRECTION 
{IF THE HAS NOT BEEN SHIFTED THRU 
{THE 16 DATA BITS THEN REPEAT FROM 28 
{OTHERWISE GO TO THE NEXT BANK OF 
{4K MEMORY AND REPEAT THE TEST 





BEG 


s + 10 




JSP 


PC. 


rSEQERR 




12 






111 


MOV 


»li 


rR0 




MOV 


R0i 


,R2 


281 


MOV 


R0. 


(Rl) 


381 


CMP 


R0, 


(Rl) 




BEQ 


48 






JSR 


PC, 


.ERROR 




13 






481 


TST 


R2 






BEQ 


58 






ASL 


P0 






BCC 


28 






CLR 


R2 






MOV 


#177776, R0 




BR 


28 




581 


SEC 








ROL 


R0 






BCS 


28 






ADD 


#20000, Rl 




CMP 


Rl, 


iRS 




BLO 


IS 




ENDll 


BR 


END0 
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TEST MEMORY FOR HOLDING DATA AND BYTE SELECTION 



1708 








(3) 








(4) 








(4) 








(4) 








(4) 








(4) 








(3) 








(2) 


002234 


122737 


000002 


1709 








1710 


002242 


001403 




17U 


002244 


004767 


003666 


(15 


002250 


000014 




(1) 








1712 


002252 


013700 


000316 


1713 


002256 


110021 




1714 


002260 


113721 


000317 


1715 


002264 


020105 




1716 


002266 


103771 




1717 








1718 


002270 


020041 




1719 








1720 


002272 


001416 




1721 


002274 


062701 


000002 


1722 


002300 


123741 


000317 


1723 


002304 


001402 




1724 


002306 


120041 




1725 


002310 


001002 




1726 


002312 


105237 


000301 


1727 


002316 


042701 


000001 


1728 


002322 


004767 


003252 


(1) 


002326 


000015 




(1) 








1729 


002330 


020104 




1730 


002332 


101356 




1731 


002334 


000337 


000316 


1732 


002340 


001744 




1733 








1734 


002342 


000733 




1735 








1736 








1737 









|#TEST 2 TEST MEMORY FOR HOLDING DATA AND BYTE SELECTION 

|*(1) THIS TEST CHECKS THE MEMORY FOR THE CAPABILITY 

f« OF HOLDING I'S AND 0'S BY WRITING A BACKGROUND 

I* OF BAKPAT AND READING IT 

|»(2) MEMORY IS WRITTEN USING A BYTE AT A TIME 

i^ii) STEPS 1 & 2 ARE REPEATED WITH A SWAPPED BACKGROUND PATTERN 

TST2I CMPB #2#3»STESTN yCHECK FOR PROPER TEST SEQUENCE 



48: 
6$l 



BEG 
JSR 
14 

MOV 

MOVB 

MOVB 

CMP 

BLO 

CMp 

BEQ 

ADD 

CMPB 

BEQ 

CMPB 

BNE 

INCB 

BIC 

JSR 

15 

CMP 
BHI 
SWAB 
BEQ 

BR 

I THE 



.*10 
PCSEQERR 



?*ERROR» REPORT ERROR MESSAGE AND HALT AT FATHLT 
}»»»«*»ERROR NUMBER 14»***«* 



9«BAKt>AT#R0 

R0»(Rn + 

§«BAKPAT-S.l,(Rn*jWRlTE THE MEMORY WITH THE WORD STORED IN BAKPAT 

R1,R5 

1$ 



0#»CRI) 



iTEST THE MEMORY TO SEE IF IT CONTAINS 
fTHE WORD STORED IN BAKPAT 



8S 

«2,R1 

P»BAKPAT+1,»(P1)|CHECK FOR BYTE SELECTION PROBLEM 

4$ 

B0f- (Rl) 

6$ 

ii#SADERR 

»l#Pl 

PC, ERROR 



lAGAIN CHECK FOR BYTE SELECTION PROBLEM 



IPREPARE TO INFORM THAT IT IS ADDRESSING ERROR 
JMAKE THE ADDRESS IN Pi EVEN 
j»ERROR» REPORT ERROR MESSAGE 
;#««#«»ERROR NUMBER 15«««««tf 



PlfR4 
28 

@»BAKPAT 
IS 

ENDl 

TEST LEAVES BAKPAT 



jKEEP ON TESTING THE MEMORY UNTIL 
;R1 EQUALS THE LOWEST ADDRESS 
^CHANGE THE DATA PATTERN 
J IF THE DATA PATTERN DOES NOT HAVE LOW 
t BYTE s0 THEN FALL THRU 



LOCATION THE SAME AS IT WAS IN THE BEGINNING 
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(2) 
1750 
1751 

(1) 

(1) 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 

(1) 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 

(1) 
1784 
1785 
1786 
1787 
1788 
1789 



002344 
002352 
002354 
002360 

002362 
002364 

002370 
002372 
002374 
002376 
002400 
002402 
002404 

002406 
002410 
002412 
002414 
002416 
002420 
002422 
002424 
002426 

002430 
002432 

002440 
002442 
002444 



122737 
001403 
004767 
000016 



0024S6 
002462 
002464 
002466 
002472 
002474 



j*TEST 3 DUAL ADDRESS TEST A 



004737 000120 

005002 
050302 
020204 
103465 
020205 
103077 
000312 



050301 
020104 
103445 
020105 
103053 
020102 
001431 
020011 

001437 
012767 

010046 
000316 
022611 



|»(1) 

»» 

f»(2) 

I» 

I*(3) 

I»(4) 

l»(5) 

000404 TST3I CMPB 
BEQ 
JSR 
16 



CLR 
281 JSR 

481 CLR 

681 BIS 
CMP 
BLO 
CMP 
BHIS 
SWAB 

CLR 
7$l BIS 
CMp 
BLO 
CMp 
BHIS 
CMP 
BEQ 
CMP 

BEQ 
MOV 

881 MOV 
SWAB 
CMP 



000017 000032 



002446 001003 



0024S0 012767 000020 000014 



10S237 
010046 
010200 
004767 



000301 
003106 



THIS TEST CHECKS FOR DUAL ADDRESSING PROBLEMS BY WRITING A 

BACK GROUND OF BAKPAT, 

STARTING FROM THE LOWEST LOCATION IN THE BANK THE TEST WRITES A 

LOCATION WITH SWAPPED BAKPAT 

READS THE MEMORY FOR PROPER CONTENTS 

SHIFTS A 1 ALONG THE ADDRESS DIRECTION AND REPEATS STEPS 1"3 

REPEATS STEP 1-4 FOR EACH 4K BANK 

«3,?#STESTN !CHECK FOR PROPER TEST SEQUENCE 
.♦10 

PCSEQERR ;»EPROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
l»»#»»*ERROB NUMBER 16»***** 



R3 

PC,e#WRTMEM 

R2 

R3,R2 

R2,R4 

168 

R2,R5 

208 

{R2} 

Rl 

R3,R1 

Rl#R4 

128 

R1,R5 

158 

RlfR2 

10$ 

R0#(R1) 

128 
#17,228 

R0,-(SP) 

(8P) 

(SP)*,(R1) 



»20,32$ 



012600 



911 


INCB 


@*8ADERR 




MOV 


R0,»(SP) 




MOV 


R2,R0 




JSR 


PC, ERROR 


22SI 


.WORD 






MOV 


(SP)*,R0 



J WRITE MEMORY WITH THE BACKGROUND STORED 
|AT LOCATION BAKPAT 

»MAKE R2 POINT TO THE MEMORY BANK POINTED BY R3 

;IF R2 IS LESS THAN R4 

jTHEN DO NOTHING 

I IF R2 IS HIGHER THAN THE HIGHEST LOCATION TO BE 

J TESTED THEN EXIT THE TEST 

lOTHERWiSE WRITE THE COMPLEMENT OF BAKPAT IN 

;THE LOCATION POINTED BY R2 



I IF Rl IS POINTING TO A LOCATION LOWER THAN R4 
JTHEN GO TO 12S 



ICHECK THE MEMORY FOR CORRECT DATA 

J IF Rl IS NOT a TO R2 THEN (Rl) SHOULD HAVE 

;THE SAME WORD AS BAKpAT 

;IN WHICH CASE GO BACK TO 12$ 

|«ERROR* SETUP ERROR NO, IN 228 

|»«#««»ERROR NUMBER #17»»*»»» 

{PLACE R0 ON THE STACK 

I IF (Rl) IS NOT a R0 THEN SEE IF IT IS SAME 

I AS A SWAPPED R0 

I IF NOT THEN A SUSPECTED DUAL ADDRESSING PROBLEM 

IFOR THE BITS THAT ARE DIFFERENT IN R0 AND (Rl) 

lOTHERHlSE THERE IS DuAL ADDRESSING FOR THE 

»ENTIRE WORD 

f«ERROR« SETUP ERROR NO, IN 228 

l«#«»«»ERROR NUMBER #20«««««* 

{ADDRESSING PROBLEM IS DETECTED 

}SAVE R0 

I SET R08GOOD ADDRESS FOR ERROR REPORT 

I GO TO THE ERROR SUBROUTINE 

I ERROR NUMBER TO BE REPORTED WILL BE PLACED HERE 

{RESTORE R0 
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1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1798 
(1) 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 
1814 
181S 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 
1824 
1825 



002476 
002500 
002504 
002506 
002510 
002512 

002514 
002516 

002524 
002526 
002530 
002532 
002534 
002536 
002540 
002542 
002546 
002550 
002552 

002554 
002556 
002560 
002562 
002564 

002570 
002572 
002574 



002602 
002606 



010011 
020037 
001411 



001404 
012767 

000745 
000300 
040301 
005701 
001001 
005201 
006101 
020127 
103720 
000312 
040302 

005702 
001001 
005202 
006102 
020227 

103700 
060203 
020337 

103673 
000337 
001656 



002610 000654 





MOV 


R0#(RI) 




CMP 


R0,i#BAKPAT 




BEQ 


12$ 




BR 


11$ 


10$l 


SWAB 


R0 




CMP 


R0»(R1} 




BEQ 


11$ 




MOV 


»21f22$ 




BR 


8$ 


ll$t 


SWAB 


R0 


12SI 


BIC 


R3,R1 




TST 


Rl 




BNE 


13$ 




INC 


Rl 


13$i 


POL 


Rl 




CMP 


Rl,«20000 




BLO 


78 


15SJ 


SWAB 


(R2) 


1661 


BIC 


R3,R2 




TST 


R2 




BNE 


18S 




INC 


R2 


18SJ 


ROL 


R2 




CMP 


R2,«20000 




BLO 


6$ 




ADD 


R2,R3 




CMP 


R3,9irMAXMEM 




BLO 


4$ 


20SI 


SWAB 


9«BAKPAT 




BEG 


TST3 


END3I 


BR 


END2 



IRESTORE (Rl) 

jir THE CONTROL CAME HERE FROM 158«2 



THEN 



I RETURN TO US 

}MAKE R0 SAME AS SWAPPED BAKPAT 

tlf Rl = R2 THEN (Rl) SHOULD CONTAIN A WORD 

;EQUAL TO SWAPPED R0 

}IN WHICH CASE GO BACK TO i 1 $ 

j*ERROR« SETUP ERROR NO, IN 22$ 

l«#»«»»ERROR NUMBER S2l*«»»** 

;AND GO TO 8$ 

iRESTORE R0 TO BAKPAT 

ITAKE OUT THE BANK ADDRESS FROM THE ADDRESS IN Rl 

I IF Rl IS THEN PLACE A 1 IN Rl 

^OTHERWISE GO TO 13$ 



;IF Rl IS LESS THAN A 4K BOUNDRY 

ITHEN REPEAT FROM 7$ 

^RESTORE (R2) TO BAKPAT 

jTAKE OUT THE BANK ADDRESS FROM THE ADDRESS 

J STORED IN R2 

lIF R2 o THEN MOVE A 1 TO R2 

^OTHERWISE GO TO 188 

fSHIFT A ONE IN THE ADDRESS WORD 

lis THE ADDRESS IN R2 MORE THAN THE BOUNDRY 

,-0F 4K 

I IF NOT THEN GO TO 6$ 

{OTHERWISE MAKE R3 pOiNT TO THE NEXT 4K BANK 

jIF R3 IS POINTING TO A BANK THAT IS LOWER 

jTHAN MAXMEM 

yTHEN REPEAT FROM 4$ 

; REPEAT THE TEST WITH SWAPPED BAKPAT ONLY IF 
jTHE LOWER BYTE OF BAKPAT IS 



•) 
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1832 








(3) 








(4) 








(4) 








(4) 








(3) 








(2) 


002612 


122737 


000004 


1833 


002620 


001403 




1834 


002622 


004767 


003310 


(1) 


002626 


000022 




(1) 








1835 


002630 


005^03 




1836 


002632 


010100 




1837 


002634 


005703 




1838 


002636 


001401 




1839 


002640 


005100 




1840 


002642 


010021 




1841 


002644 


020105 




1842 


002646 


103771 




1843 








1844 


002650 


020041 




1845 


002652 


001405 




1846 


002654 


105237 


000301 


1847 








1848 


002660 


004767 


002714 


(1) 


002664 


000023 




( 1 ) 
1849 


002666 


010100 




1850 


002670 


162700 


000002 


1851 


002674 


005703 




1852 


002676 


001401 




1853 


002700 


005100 




1854 


002702 


020104 




1855 


002704 


101361 




1856 


002706 


112737 


000001 


1857 


002714 


005103 




1858 


002716 


001345 




1859 








1860 


002720 


000733 




1861 









j»TEST 4 DUAL ADDRESS TEST B 

|«(1) THIS TEST CHECKS FOR DUAL ADDRESSING BY WRITING 

I* AND READING THE ADDRESS IN THE LOCATION AND THEN 

»» WRITING AND READING ADDRESS COMPLEMENT 

J J »»»»«»»»»#»«.»*«»««»»»#*«»«#»«»»»##«#»«#»##»#»###«»*»■»»»»»»»»»»» 

000404 TST4I CMPB #4,9«$TESTN jCHECK FOR PROPER TEST SEQUENCE 

BEQ ,+10 

JSR PCSEQERR |»ERR0R« REPORT ERROR MESSAGE AND HALT AT FATHLT 
22 j»»»»#»ERROR NUMBER 22****** 



J IF R3 IS NOT THEN STORE THE ADDRESS 

;IN THE LOCATION 

{OTHERWISE STORE COMPLEMENT 

;0F THE ADDRESS 

lUNTlL THE HIGHEST MEMORY LOCATION IS REACHED 



CLR 


R3 


MOV 


R1#R0 


TST 


R3 


BEG 


2$ 


COM 


R0 


MOV 


R0,(RI)+ 


CMP 


RUR5 


BLO 


18 


CMP 


R0#-(RI) 


BEQ 


4$ 


INCB 


@#$ADERR 


JSR 


PC, ERROR 


23 




MOV 


R1.R0 


SUB 


»2,R0 


TST 


R3 


BEQ 


5$ 


COM 


R0 


CMP 


R1,R4 


BHI 


3$ 


MOVB 


#U»#PA5FLG 


COM 


R3 


BNE 


1$ 



iCHECK THE LOCATION FOR THE CORRECT CONTENTS 

{THIS IS PROBABLY ADDRESS PROBLEM RATHER THAN 

{BIT PROBLEM 

{*ERROR# REPORT ERROR MESSAGE 

{«»««»«ERROR NUMBER 23****** 



{CHECK THAT THE ADDRESS IS STORED AT 
{LOCATION IF R3 IS NOT 
{OTHERWISE CHECK FOR 
{ADDRESS COMPLEMENT 



{SET PASFLG FOR ERROR REPORT, 

{COMPLEMENT THE CONTENTS OF R3 

{REPEAT TST3 IF R3f IS NON 0, ENABLING ADDRESS 

{COMPLEMENT TO BE WRITTEN AND READ, OTHERWISE FALL THRU 



DIKMA MACYU 27(732) 
DZKMAB,P11 T5 



0S-AUG-76 
MARCHING 1' 



13143 PAGE 6«i4 
S AND 0*S 



1876 








(3) 








(4) 








(4) 








(4) 








(4) 








(4) 








(4) 








(4) 








(4) 








(4) 








(4) 








(4) 








(3) 








(2) 


002722 


122737 


000005 


1877 








1878 


002730 


001403 




1879 


002732 


004767 


003200 


(1) 


002736 


000024 




(1) 








1880 


002740 


004737 


000120 


1881 








1882 


002744 


020041 




1883 


002746 


001403 




1884 


002750 


004767 


002624 


(1) 


002754 


000025 




(1) 








1885 


002756 


000300 




1886 


002760 


010011 




1887 


002762 


021100 




1888 


002764 


001403 




1889 


002766 


004767 


002606 


(1) 


002772 


000026 




(1) 








1890 








1891 


002774 


000300 




1892 








1893 


002776 


001023 




1894 








1895 








1896 








1897 








1898 








1899 








1900 








1901 


003000 


005703 




1902 








1903 








1904 








1905 








1906 


003002 


001023 




1907 


003004 


062701 


000002 


1908 


003010 


020105 




1909 








1910 


003012 


103006 




1911 


003014 


020011 





J f »»»»»»»»«»»»«*»»»««»##»«»»»»#««»»»»«#»»»»»#»*»*»«»»»»#»»##»»»»## 



|»TEST 5 



l»(l) 
l»(2) 



l*(4) 
»»(5) 



MARCHING 1»S AND 0»S 

THIS TEST WRITES A BACK GROUND OF THE WORD STORED 

AT BAKPAT, 

READS EVERY LOCATION FOR CORRECT DATA, SWAPS BYTES 

AT THE LOCATION AND PROCEEDS IN MAX, TO MIN 

DIRECTION OF MEMORY LOCATIONS, 

READS EVERY LOCATION FOR SWAPPED BAKPAT PATTERN 

WRITES BAKPAT BACKGROUND IN THE LOCATION AND PROCEEDS 

IN MIN. TO MAX, DIRECTION 

REPEATS STEP 2 GOING IN MIN, TO MAX. DIRECTION 

REPEATS STEP 3 GOING IN MAX, TO MIN, DIRECTION 



TST5I CMpB »5,(li$TESTN jCHECK FOR PROPER TEST SEQUENCE 



|»ERROR» REPORT ERROR MESSAGE AND HALT AT FATHLT 
2«««#«»ERR0R NUMBER 24«»«««« 

jGO TO WRITE THE MEMORY WITH A BACKGROUND OF THE 

I WORD STORED IN BAKPAT 

IREAD THE CONTENTS OF LOCATION POINTED BY Rl 

JTO SEE IF IT HAS THE SAME VALUE AS R0 

»«ERROR« REPORT ERROR MESSAGE 

j»*in»##ERROR NUMBER 25»*«»»» 





BEQ 


,♦10 




JSR 


PCSEQERR 




24 




Hi 


JSR 


PC,P#WRTMEM 


2SI 


CMP 


R0#-(Rn 




BEQ 


31 




JSR 


PC, ERROR 




25 




3$l 


SWAB 


R0 




MOV 


R0,(Rn 




CMp 


(R1),R0 




BEQ 


4$ 




JSR 


PC, ERROR 




26 




4$l 


SWAB 


R0 




BNE 


9S 



BNE 
ADD 
CMP 

BHIS 

CMP 



10S 

«2,R1 
R1,R5 

88 
R0,{Rn 



ISWAP THE BYTES AT (Rl) 
;PEAD (Rl) FOR CORRECT VALUE 



|*ERROR# REPORT ERROR MESSAGE 
;»«»«««ERROR NUMBER 26«««««# 



ISWAP THE BYTES OF THE REGISTER 

^CONTAINING BACKGROUND PATTERN 

I IF THE LOWER BYTE OF THE REGISTER 

I IS NOT THEN THE PROGRAM IS READING 

jTHE MEMORY TO CONTAIN A BACK GROUND OF 

jBAKpAT AND WRITING THE SWAPPED WORD 

J IN WHICH CASE GO TO 9$ 

>R3 WAS WHEN THE PROGRAM ENTERED 

ITHIS TEST, AND IT IS NOT ALTERED UNTIL PASFLGb3 

I IF R3 EQUAL THEN THE PROGRAM IS 

JREADING/WRITING MIN, TO MAX, OTHERWISE 

lIT IS GOING IN MAX, TO MIN, DIRECTION 

jIF R3 IS NOT CLEAR THEN GO TO 10$ 

^OTHERWISE ADD 2 TO THE CONTENTS OF Rl 

fCOMPARE Rl WITH THE MAX, MEMORY LOCATION TO 

jBE TESTED 

»IF R1>R5 THEN GO TO 8$ OTHERWISE 

iREAD (Rl) FOR THE CORRECT DATA 
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1912 


003016 


001757 


1913 






1914 


003020 


004767 002554 


(1) 


003024 


000027 


(1) 






1915 


003026 


000753 


1916 


003030 


105237 000306 


1917 


003034 


000300 


1918 


003036 


001742 


1919 






1920 






1921 


003040 


005103 


1922 


003042 


010401 


1923 


003044 


000763 


1924 






1925 






1926 


003046 


005703 


1927 


003050 


001353 


1928 






1929 






1930 


003052 


020104 


1931 






1932 


003054 


101333 


1933 


003056 


105237 000306 


1934 


003062 


000300 


1935 


003064 


001753 


1936 






1937 






1938 


003066 


000714 


1939 







BEQ 


3$ 


JSR 
27 


PC, ERROR 


BR 

INCB 
SWAB 
BEQ 


38 

P«PASFLG 

R0 

28 


COM 
MOV 
BR 


R3 

R4,R1 

78 


TST 
BNE 


R3 
58 



CMP R1,R4 

BHI 28 

INCB etPASFLG 

SWAB R0 

BEQ 71 



END5I BR 



J WRITE COMPLEMENT OF THE DATA FOUND AT (Rl) 
jAND REPEAT UNTIL Rl > R5 
y»ERROR# REPORT ERROR MESSAGE 
j»»»»#»ERROR NUMBER 27**««** 



I IF THE LOWER BYTE OF R0 IS ALL 0»S 

jTHEN BEGIN READING BAKPAT SWAPPED WRITING BAKPAT 

|AND READING BAKpAT GOING FROM MAX, TO MIN, CPASFLGb4] 

jOTHEPWiSE CLEAR R0 

jPUT THE LOWEST TESTING ADDRESS IN Rl 

jAND BEGIN READING 0*Sr WRITING I'S AND 

^READING I'S IN MIN, TO MAX, DIRECTION tPASFLGs3] 

;IF R3 IS NON 0, I.E. PASFLGs3 

7THEN READ BAKPATi WRITE 

^SWAPPED BAKPAT AND READ SWAPPED BAKpAT 

lIN MIN, TO MAX, DIRECTION 

^OTHERWISE TEST IS PROCEEDING IN MAX, TO 

»MIN, DIRECTION, 

iKEEP ON LOOPING UNTIL R1bR4 



I IF R0 SWAPPED HAS LOWER BYTEb0 

iTHEN READ BAKPAT SWAPPED, WRITE BAKPAT, 

;AND READ BAKPAT GOING FROM MIN, TO MAX, 



liip'' 



003070 122737 000006 000404 



001403 
004767 



003076 
003100 
003104 



003106 004737 000120 
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1956 

C3) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(43 

(4) 

(4) 

(4) 

(43 

(43 

(33 

(23 

1957 

1958 

1959 

1960 

(13 

(13 

1961 

1962 

1963 

1964 

1965 

1966 

1967 

196B 

(13 

(13 

1969 

1970 

1971 

1972 

1973 

1974 

1975 

1976 

1977 

1978 

1979 

1980 

1981 

1982 

1983 

1984 

1985 

1986 

1987 

1988 

1989 

1990 

1991 
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l«TEST 6 CELLS' VOLATILITY TEST 

I»(13 THIS TEST WRITES THE MEMORY WITH A BACK GROUND OF BAKRAT 

|«(23 WITH PASFLGa0 THE TEST READS THE MEMORY FOR BAKPAT 

l« AND THEN INCREMENTS PASFLG 

|»(33 IT THEN READS/SWAPS BYTES/WRITES A LOCATION X FOR 

l» OVER 2 MSEC AND THEN READS THE MEMORY FOR BAKPAT 

»«(43 REPEATS STEP 3 WITH X8X<»-4K UNTIL END OF MEMORY IS ENCOUNTERED 

l»(53 IT THEN INCREMENTS PASFLG AND WRITES THE MEMORY TO 

}» BAKPAT AND WITH PASFLG92 IT READS MEMORY FOR ALL 

l# SWAPPED BAKPAT AFTER WHICH PASFLG IS INCREMENTED TO 3 

f*(63 REPEATS STEPS 3 AND 4 READING THE MEMORY FOR SWAPPED 

l» BAKPAT INSTEAD OF BAKPAT, 

TST6I CMpB #6,i#STESTN jCHECK FOR PROPER TEST SEQUENCE 



003112 
003116 
003120 
003122 
003124 
003126 
003132 

003134 
003140 
003142 
003144 
003152 
003154 

003160 
003162 
003164 
003170 
003172 
003174 
003176 
003202 



003206 
003210 
003214 
003220 
003222 



005037 
010403 
010401 
020011 
001403 
004767 
000031 

062701 
020105 
103767 
132737 
001002 
105237 

020305 
103012 
012702 
000313 
005302 
001375 
010337 
062703 



000744 
105237 
000337 
001732 
000721 



BEQ 
JSR 

30 

RPT6I JSR 



l$l 
2$l 

3$l 



000001 000306 
000306 



000354 
020000 



CLR 
MOV 
MOV 
CMP 
BEQ 
JSR 
31 

ADD 

CMP 

BLO 

BITB 

BNE 

INCB 

CMP 

BHIS 

MOV 

SWAB 

DEC 

BNE 

MOV 

ADD 



BR 

INCB 
SWAB 
BEQ 
END6I BR 



581 
6SI 



7Sl 



. + 10 
PCSEQERR 



PC,e#WRTMEM 

&#PASFLG 

R4,R3 

R4,R1 

R0f (R13 

4$ 

PC, ERROR 



82, Rl 

R1,R5 

33 

#1,@«PASFLG 

58 

@#PASFLG 

R3,RS 

78 

#37776, R2 

(R3) 

R2 

68 

R3,»#SAVL0C 

#20000«R3 



2S 

9#PASFLG 
p«BAKPAT 
RPT6 
ENDS 



;«ERROR» REPORT ERROR MESSAGE AND HALT AT FATHLT 
l#»*###ERROR NUMBER 30»»#»*» 

;G0 TO WRITE THE MEMORY WITH A BACKGROUND OF THE 
jWORD STORED AT LOCATION BAKPAT 

ISET R3 

|AND Rl TO THE STARTING ADDRESS OF MEMORY UNDER TEST 

ICHECK (R13 FOR CORRECT DATA 

;«ERROR» REPORT ERROR MESSAGE 
;»«»#«»ERROR NUMBER 3ift»«««» 

I INCREMENT Rl BY 2 

ISEE IF Rl HAS REACHED THE MAX, OF MEMORY 

iCHECK TO SEE IF PASFLGb0 OR 2 

I IN WHICH CASE INCREMENT PASFLG COUNTER BY 1 

jSEE IF R3 HAS REACHED THE MAX, OF THE MEMORY 

IWRITE INTO I LOC FOR >2MS (ABOUT 100MS3 



fSAVE LOCATION WRITTEN FOR 2MS FOR ERROR REPORT, 
jBY ADDING 1 TO THE 14TH ADDRESS BIT CAUSE 
JR3 TO POINT TO A LOCATION IN THE NEXT 
j4K BANK OF MEMORY 

J MAKE PASFLGa2 

tlF BAKPAT IS NOT BEING SWAPPED FOR THE 2ND 

JTHEN GO BACK TO THE LOCATION RPT6 
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SEQ 0044 



4) 
4) 

4) 
4) 
4) 
4) 
4) 
4) 
3) 
2) 
200S 
2006 
2007 
(1) 
(1) 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 
2031 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
(1) 
(1) 
2040 
2041 
2042 
2043 
2044 



003224 122737 000007 000404 



»«TEST 7 SHIFTING DIAGONAL 

|»(n THIS TEST WRITES THE MEMORY WITH A BACKGROUND OF BAKPAT 

)«(2} XT WRITES A DIAGONAL OF SWAPPED BAKPAT THROUGH EACH MEMORY BANK 

j»C3) READS THE MEMORY FOR CORRECT DATA 

f»(4) SHIFTS THE DIAGONAL AND REPEATS STEP 3 UNTIL THE 

l» DIAGONAL HAS BEEN SHIFTED 64 TIMES 

|«(S} WRITES A BACKGROUND OF SWAPPED BAKPAT, A DIAGONAL OF 

l» BAKPAT AND REPEATS FROM STEP 3 
f }»###««'»»»»#«#'»»»«««#»««»«««#«»»»»««#«««»««»««««"»##«««»««««««#«# 

TST7I CMPB #7,f#$TESTN fCHECK FOR PROPER TEST SEQUENCE 



003232 
003234 
003240 

003242 

003246 

003252 

003254 
003260 
003262 
003264 
003266 

003270 

003274 

003300 
003304 
003306 
003310 
003314 
003320 
003322 
003326 
003330 



003336 
003340 



003344 
003346 
003352 

003354 
003360 
003362 
003364 
003370 



001403 
004767 
000032 

00S037 
010337 

010302 
052702 
003722 
020502 
103001 
010502 

010337 

013701 

013700 
020103 
001010 
062703 
032703 
001402 
062703 



003342 020011 



001403 
004767 
000033 

062701 
020102 
103746 
005237 
105237 



000302 
000304 
000316 



000002 
000176 



132737 000001 000306 



001001 
010011 



6SI 
10$l 



BEQ 
JSR 
32 

CLR 
MOV 

MOV 

BIS 

TST 

CMP 

BHIS 

MOV 

MOV 

MOV 

MOV 

CMP 

BNE 

ADD 

BIT 

BEQ 

ADD 

SWAB 

BITB 



BNE 
MOV 



BEQ 
JSR 
33 

ADD 
CMP 
BLO 
INC 
INCB 



,♦10 
PCSEQERR 



i#PASFLG 
R3,i»L0WBNK 

R3,R2 

#17776#R2 

CR2) + 

R5,R2 

4S 

R5»R2 

R3#f»STRTDI 

9IL0WBNK,R1 

ta#BAKPAT,R0 

Rl,R3 

108 

$2fR3 

#176, R3 

8$ 

#200»R3 

P0 

#l,giSPASFLG 



12$ 
R0i(Rn 



0»CR1) 



14$ 

PC, ERROR 



«2,R1 

RliR2 

6$ 

ii#SDEVCT 

fl#PASFLG 



|»ERROR» REPORT ERROR MESSAGE AND HALT AT FATHLT 
;««««#«ERROR NUMBER 32»«««»# 



iLOWBNK CONTAINS ADDRESS OF THE LOWEST LOCATION 
J IN THE 4K BANK THAT CAN BE TESTED 

|R2 CONTAINS THE ADDRESS OF THE TOP OF THE BANK 
jADD 2 TO R2 

J IF R2 IS GREATER THAN R5 THEN GO TO 4$ 

JNOW R2 CONTAINS THE ADDRESS OF THE HIGHEST LOCATION 

ITHAT CAN BE TESTED 

iLOAD STPTDI WITH THE STARTING ADDRESS OF THE 

^DIAGONAL 

jRl IS NOW POINTING TO THE LOWEST LOCATION IN THE 4K 

;BANK 

;STORE THE CONTENTS OF BAKpAT IN R0 

JIS Rl POINTING TO A LOCATION IN THE DIAGONAL 7 

I IF NOT THEN GO TO 10$ 

ITHE FOLLOWING CODE IS USED TO PLACE THE 

lADDRESS OF THE NEXT LOCATION IN THE DIAGONAL 

>IN R3 

J 

iDIAGONAL WILL CONTAIN SWAPPED BACKGROUND PATTERN 

fCONTENTS OF LOCATION PASFLG WILL BE EVEN IF THE 

iMEMORY is being WRITTEN AND IT WILL BE ODD 

>IF IT IS ONLY BEING READ 

?IF IT IS BEING READ ONLY THEN GO TO 128 

lOTHERWiSE WRITE THE MEMORY WITH THE CONTENTS 

;0F R0 

iCHECK THE LOCATION POINTED BY Rl TO CONTAIN 

? PROPER DATA 

lIF IT IS OK THEN GO TO 148 

J»ERROR» REPORT ERROR MESSAGE 

7»»»«»»ERR0R NUMBER 33*»»»»* 

?CAUSE Rl TO POINT TO THE NEXT MEMORY LOCATION 
lis IT THE END OF THE BANK ? 
;IF NOT THEN GO TO 6S 

ITELL APT WE ARE STIL RUNNING OKAY 
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2045 


003374 


013703 


000302 


2046 


003400 


132737 


000001 


2047 


003406 


001330 




2048 


003410 


005723 




2049 


003412 


020302 




2050 


003414 


103003 




2051 


003416 


105737 


000306 


2052 


003422 


100322 




2053 


003424 


013703 


000304 


2054 








2055 


003430 


000337 


000316 


2056 


003434 


001715 




2057 








2058 


003436 


010203 




2059 








2060 


003440 


020205 




2061 








2062 


003442 


103677 




2063 


003444 


000666 





MOV 


P#STRTDI,R3 


BITB 


il,@#PASFLG 


BNE 


48 


TST 


(R3)* 


CMP 


R3,R2 


BHIS 


18$ 


TSTB 


ifPASFLG 


BPL 


48 


MOV 


9»LOWBNK,R3 


SWAB 


i#BAKPAT 


BEQ 


48 


MOV 


R2,R3 


CMP 


R2,R5 


BLO 


28 


BR 


END6 



jLOAD R3 WITH THE STARTING ADDRESS OF THE DIAGONAL 

jHAS THE READ OF THE MEMORY BEEN DONE ? 

rIF NOT THEN GO TO 48 

I ADD 2 TO THE STARTING ADDRESS OF THE DIAGONAL 

;AND UNLESS THE END OF THE BANK IS REACHED 

I 

;0R THE DIAGONAL HAS BEEN ROTATED 64 TIMES 

jREPEAT FROM 48 

jMAKE R3 POINT TO THE LOWEST LOCATION IN THE 

I IN THE BANK UNDER TEST 

jAND IF THE TEST HAS NOT BEEN PERFORMED WITH THE 
{SWAPPED BACK GROUND PATTERN THEN GO TO 4S 
iMAKE THE PRESENT HIGH BOUNDRY AS THE NEXT 
;LOW BOUNDRY 

;UNLESS THE PRESENT HIGH BOUNDRY IS ALSO THE 
iHIGH BOUNDRY FOR THE MEMORY UNDER TEST 
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2091 


























































































































































































































003446 


122737 


000010 


2092 








2093 


003454 


001403 




2094 


003456 


004767 


002454 


(U 


003462 


000034 




(1) 








2095 


003464 


010402 




2096 


003466 


052702 


017776 


2097 








2098 


003472 


062702 


000002 


2099 


003476 


020205 




2100 


003500 


101401 




2101 


003502 


010502 




2102 


003504 


005046 




2103 


003506 


010200 




2104 


003510 


013740 


000316 


2105 








2106 


003514 


020003 




2107 


003516 


101374 




2108 


003520 


010301 




2109 








2110 


003522 


023710 


000316 


2111 








2112 


003526 


001410 




2113 


003530 


010001 




2114 


003532 


013700 


000316 


2115 


003536 


004767 


002036 


(1) 


003542 


000035 




(1) 









>»TEST 10 READ RECOVERY GALLOPING TEST THROUGH EVERY 64TH CELL 

|*C1) THIS TEST WRITES THE MEMORY WITH A BACK GROUND PATTERN 

f» STORED AT LOCATION BAKPAT 

J»C2) TEST BEGINS AT LOWEST LOCATION BEING TESTED 

I* (LETS NAME IT 'AM 

f*(3) LETS NAME THE 1ST LOCATION IN THE ROW/COLUMN UNDER TEST AS »B 

l«(4) SWAPS BYTES FOR LOCATION »A', 

|»(5) READS 'A', READS 'B* 

l»(6) 'B* a 'B'+200 (MAKES 'B'b64TH CELL I.E. 200TH OCTAL 

I* LOCATION FROM THE PRESENT LOCATION OF 'B') 

l»(7) REPEATS STEPS 5 AND 6 UNTIL 'B' IS GREATER THAN THE 

l» END OF THE 4K BANK OF THE MEMORY IN WHICH 'A' IS RESIDING 

|<*(8) A a A + 2 

f»{9) REPEATS STEPS 3««8 UNTILL 'A* REACHES THE END OF THE BANK 

f»(10) GOES TO THE NEXT 4K BANK OF MEMORY AND REPEATS STEPS 

j» 3-9 UNTIL THE END OF THE MEMORY 

f»{ll) AFTER EXECUTING THE TEST BYTES ARE SWAPPED AT 

f» LOCATION BAKPAT AND STEPS 1-10 ARE REPEATED 

I»(12) IN THIS TEST P0 IS POINTING TO LOCATION 'A', Rl TO 

|» LOCATION 'B% R2 TO THE END OF THE 4K BANK IN WHICH THE 

j» TEST IS TAKING PLACE AND R3 TO THE LOWEST LOCATION IN THE 

I» COLUMN/ROW CONTAINING 'A* AND 'B' 

I»(13) HOST OF THE CODE USED BY THIS TEST IS ALsO USED BY TEST 11 



TST10I CMPB 

BEQ 
JSR 
34 

MOV 
PPT10I BIS 

GALLOPj ADD 
CMP 
BLOS 
MOV 
CLR 
MOV 
MOV 



il0#?'«$TESTN fCHECK FOR PROPER TEST SEQUENCE 



2$l 
4SS 



CMP 
BHI 
MOV 

CMP 

BEO 
MOV 
MOV 
JSB 
35 



,♦10 
PC#SEQERR 



P4,R2 
«17776,R2 

»2fR2 

R2,R5 

2$ 

R5,R2 

-(SP) 

R2fR0 

?SBAKPAT,-(R0) 

R0,P3 

4$ 

R3,R1 

P«BAKPAT, (R0) 



R0,R1 

0#BAKPAT,R0 
PC, ERROR 



;*ERROR» REPORT ERROR MESSAGE AND HALT AT FATHLT 
f*»*»«»ERROR NUMBER 34«»»»»# 

fSET R2 TO THE LOWEST MEMORY UNDER TEST 

IMAKE R2 POINT TO THE HIGHEST LOCATION IN THE 4K 

jBANK FOR WHICH GALLOPING WILL BE PERFOMED 

y INCREMENT R2 BY 2 

I IF THE HIGH BOUNDRY OF THE TEST IS HIGHER THAN 

iTHE MAXIMUM ALLOWED ADDRESS THEN ADJUST R2 



jWRlTE THE MEMORY UNDER TEST WITH A BACKGROUND OF 
fBAKPAT 



jR3 AND Bl ARE POINTING TO THE LOWEST LOCATION THAT 

jCAN BE TESTED IN THIS BLOCK 

jBEFORE STARTING THE GALLOPING TEST FOR LOCATION 

|(R0) CHECK IT 

^CONTINUE IF OK 

{OTHERWISE PREPARE TO REPORT THE ERROR 

;«ERROB« REPORT ERROR MESSAGE 
;»»»»*»ERROR NUMBER 35«»«»»» 
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2116 


003544 


010011 






MOV 


R0,(Rn 




003546 


010100 






MOV 


R1,R0 


003550 


000310 




8SJ 


SWAB 


(R0) 




003552 


031011 




1011 


BIT 


(R0)r(Rl) 


















003554 


020001 






CMP 


R0#R1 


















003556 


001412 






BEQ 


12$ 




003560 


021137 


000316 




CMP 


(R1),3»BAKPAT 




003564 


001407 






BEO 


12S 




003566 


010046 






MOV 


P0,«{SP) 




003570 


013700 


000316 




MOV 


9#BAKPAT,R0 




003574 


004767 


002000 




JSR 


PC, ERROR 




003600 


000036 






36 




















003602 


012600 






MOV 


(SP}<l>,R0 




003604 


021037 


000320 


12SI 


CMP 


(R0),9»SWAPAT 




003610 


001412 






BEQ 


14$ 




003612 


010146 






MOV 


R1,'-(SP) 




003614 


010001 






MOV 


P0#R1 




003616 


013700 


000320 




MOV 


@#SWAPAT,R0 




003622 


004767 


001752 




JSR 


PC, ERROR 




003626 


000037 






37 




















003630 


010011 






MOV 


R0,(R1) 




003632 


010100 






MOV 


R1,R0 




003634 


012601 






MOV 


(SP)*,R1 




003636 


122737 


000011 000404 14SI 


CMPB 


#ll,i«$TESTN 




003644 


001402 






BEQ 


168 




003646 


062701 


000176 




ADD 


#176, Rl 




003652 


062701 


000002 


16$t 


ADD 


#2,R1 




0036S6 


020102 






CMP 


R1,R2 




003660 


103734 






BLO 


10$ 




003662 


000320 






SWAB 


(R0)-^ 


















003664 


122737 


000011 000404 


CMPB 


«llie#8TESTN 




003672 


001407 






BEQ 


17$ 




003674 


00S723 






TST 


(R3) + 




003676 


062716 


000002 




ADD 


#2,(SP) 




003702 


105716 






TSTB 


(SP) 




003704 


100002 






BPL 


178 




003706 


161603 






SUB 


(SP),R3 




003710 


005016 






CLR 


(SP) 




003712 


032700 


000177 


i7Sl 


BIT 


#177, R0 




003716 


001002 






BNE 


16$ 




003720 


005237 


000410 




INC 


9#8DEVCT 




003724 


020002 




18$t 


CMP 


R0,R2 




003726 


103674 






BLO 


68 




003730 


162603 






SUB 


(SP5+,R3 




003732 


000337 


000320 




SWAB 


ilSWAPAT 




003736 


000337 


000316 




SWAB 


i»BAKPAT 




003742 


001660 






BEQ 


28 




003744 


010203 






MOV 


R2,R3 


















003746 


02020S 






CMP 


R2,RS 



jRESTORE THE CONTENTS OF (Rl) 
jRESTORE R0 



iCHECK TO SEE THAT NONE OF THE BITS SET 
jIN (P0) ARE SET IN (Rl) AND VICE VERSA 
JTHE ONLY EXCEPTION TO THIS WILL BE WHEN R0a:Rl 



jCHECK THAT (Rl) HAS BAKPAT IN IT 

{SAVE R0 ON STACK 
jPLACE THE PATTERN WORD IN R0 
y»ERROR« REPORT ERROR MESSAGE 
l»»«*»»ERROR NUMBER 36»»»*»* 

JRESTORE R0 

jCHECK THAT (R0) HAS SWAPPED BAKpAT IN IT 

jSAVE Rl ON THE STACK 

jMAKE Rl POINT TO THE FAILING LOCATION 
jLOAD R0 WITH THE EXPECTED RESULT IN (Rl) 
J»ERROR» REPORT ERROR MESSAGE 
j»»»»»*ERROR NUMBER 37»*«*»* 

jRECOVER (Rl) FROM THE ERROR 

I RESTORE R0 

fAND RESTORE Rl 

lis THE PROGRAM EXECUTING TEST » 11 ? 

ilF SO THEN GO TO 16$ 

iMAKE Rl POINT TO THE NEXT ADJACENT CELL 

fAND IF Rl HAS NOT REACHED THE END OF THE BOUNDRY 

ITHEN REPEAT FROM 108 

JRESTORE THE LOCATION FOR WHICH THE GALLOPING TEST 

jWAS BEING PERFORMED 

lis IT TEST 11 7 

J IF SO THEN GO TO 17$ 

lOTHEPWISE INCREMENT R3 BY 2 

IFOR EVERY ROW/COLUMN TESTED ADD 2 

lUNTIL (SP) IS 200 
{SUBTRACT 200 FROM R3 

}AT A 64TH CALL BOUNDRY? 

IBRANCH IF NO 

JTELL APT WE ARE STILL RUNNING 

;IF R0 HAS NOT REACHED THE END OF THE BOUNDRY 

JTHEN REPEAT FROM 6$ 

JRESTORE SP AND R3 



J IF THE LOWER BYTE OF BAKPAT IS THEN REPEAT FROM 2$ 
jOTHEBWiSE MAKE THE PRESENT HIGH BOUNDRY AS THE 
jNEXI LOW BOUNDRY 



1 
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003750 


001410 




BEQ 


END10 
















003752 


032702 


017776 


BIT 


#17776, R2 




003756 


001025 




BNE 


RPTU 
















003760 


122737 


000011 


000404 CMPB 


#ll,i#$TESTN 




003766 


001421 




BEQ 


RPTU 




003770 


000636 




BR 


PPT10 




003772 


000624 




END10I BR 


END7 







































I IF PREVIOUS HIGH BOUNDRY WAS THE END OF THE 

iTEST BOUNDRY THEN EXIT THE TEST 

JWAS IT A 4K BOUNDRY ? 

I IF NOT THEN WE WERE PERFORMING TEST 11 WITH LONG 

IGALLOPING TEST DISABLED 

;IF IT IS TEST # 11 THEN GO TO REPEAT TEST 11 

lOTHERWiSE REPEAT TEST 10 
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3) 
4) 
4) 
4) 
4) 
4) 
4) 
4) 
4) 
4) 
4) 
4) 
4) 
4) 
4) 
4) 
4) 
4) 
4) 
4) 
4) 
4) 
4) 
4) 
4) 
4) 
3) 
2) 
09 
10 
11 

n 
1) 

12 
2213 



l«TEST 11 READ RECOVERY LONG GALLOPING/FAST GALLOPING TEST 



2 

2 

2 

2 

2 

2219 

2220 

2221 

2222 

2223 

2224 



004014 
004020 
004022 
004026 
004032 
004036 



»»( 

i*( 

I 

l»( 

f*( 

f»( 

f*( 

»»( 

l» 

I* 

l» 

l» 

l» 

l»( 

f« 

f» 

l» 

l» 

f*( 

l»( 

I* 

I* 

!»( 



9) 
10) 



11) 



THIS TEST WRITES MEMORY WITH BAKPAT 

THE TEST BEGINS AT THE LOWEST LOCATION BEING TESTED 

(LETS NAME IT 'B') 

'A'.'B* [MOVE THE ADDRESS OF 'B» TO THE POINTER FOR LOCATION ' 

SWAPS BYTES FOR LOCATION 'A' 

READS 'A', READS 'B' 

•B»B'B'+2 

IF GALLOPING OPTION BIT AT $SWREG IS HIGH THEN STEPS 4 AND 5 
ARE REPEATED UNTIL 'B' REACHES THE HIGHEST MEMORY LOCATION 
OF THE 4K BANK IN WHICH 'A* IS RESIDING* THEN 'A' IS 
DECREMENTED BY 2 AND AFTER MAKING 'B' TO POINT TO THE LOWEST 
LOCATION OF THE 4K MEMORY BANK CONTAINING 'A' STEPS 3f4»5 AND 
6 ARE REPEATED UNTIL 'A' EQUALS THE END OF THE ENTIRE MEMORY 
IF GALLOPING OPTION BIT IS NOT HIGH THEN STEPS 4 AND 5 ARE 
REPEATED UNTIL 'B* IS POINTING TO A CELL IN THE NEXT COLUMN 
IF SEQUENTIAL CELLS LIE ALONG THE ROW, OR THE NEXT ROW 
IF SEQUENTIAL CELLS LIE ALONG THE COLUMN, AT WHICH TIME 
STEPS 2,3,4,5 AND 7 ARE REPEATED UNTIL THE END OF THE MEMORY 
TEST IS REPEATED FOR THE OPPOSITE BACKGROUND DATA 
IN THIS TEST R0 POINTS TO LOCATION 'A', Rl TO LOCATION 
'B', R2 TO THE HIGHEST LOCATION AND R3 TO THE LOWEST 
LOCATION IN A 64/4K CELL BOUNDRY 
MOST OF THE CODE USED BY TEST 10 IS ALSO USED BY THIS TEST 



A'3 



003774 122737 000011 000404 TSTllI CMpB 



} l«««»'»»»»««tt»»««#««ff'»»»»»«<»««««»»»»»»««#««»»««^««««««««»«*»«»»«»« 



001403 
004767 



004002 
004004 
004010 



004012 010402 



105777 
100004 
004767 
046107 
105777 
100613 



002540 
000120 
174412 



004040 052702 000176 



004044 000612 



BEQ 
JSR 

40 

MOV 

TSTB 

BPL 

JSR 

.ASCIZ 

TSTB 

BMI 

BIS 



#11,0#STESTN 



.♦10 
PCSEQERR 



R4,B2 

9SWR 

RPTU 

PCPNTMES 

/GLP/ 

9SWR 

RPT10 

#176, R2 
GALLOP 



iCHECK FOR PROPER TEST SEQUENCE 



|»ERROR« REPORT ERROR MESSAGE AND HALT AT FATHLT 
;»««««»ERROR NUMBER 4,0**»»** 

fMAKE R2 TO POINT TO THE LOWEST LOCATION 

I UNDER TEST 

ILONG GALLOP ENABLED? 

JBRANCH IF NO 

ITYPE "GLP" 

;LONG GALLOPING ENABLED? 

fBRANCH IF YES 

I TO RPT10 

{OTHERWISE SET THE LOW ORDER BITS OF THE ADDRESS 

I TO GET THE HIGH BOUNDRY 

1 PERFORM GALLOPING TEST 
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2247 


















































































































































































004046 


122737 


000012 




004054 


001403 






0040S6 


004767 


002054 




004062 


000041 












004064 


012702 


000001 




004070 


012703 


000400 




004074 


H2737 


000001 




004102 


010401 














004104 


013700 


000316 




004110 


030201 






004U2 


001004 






004114 


030301 






004116 


001404 






004120 


005100 






































004122 


000402 






004124 


030301 












2269 


004126 


001774 




2270 


004130 


132737 


000002 


227S 


004136 


001001 





I ;#»«##»#««»«^###»####««###»«»####«##'»#»«tf««4l#«««»»«4»««»#«««4»#»«# 



WOPST CASE TESTING FOp CORE MEMORY 

STARTING FROM THE LOWEST LOCATION UNDER TEST THE MEMORY 

IS WRITTEN WITH A BACKGROUND OF iAKPAT, HOWEVER LOCATIONS 

HAVING ADDRESS SUCH THAT EXCLUSIVE OR OF ADDRESS BITS 1 I. 

S s I ARE WRITTEN TO A VALUE OF SWAPPED BAKPAT 

STARTING FROM THE LOWEST LOCATION THE MEMORY IS CHECKED 

TO CONTAIN THE CORRECT DATA AS EXPLAINED IN STEPS 3 £. 4f 

UNTILL THE HIGHEST LOCATION UNDER TEST IS REACHED 

READ EACH LOCATION FOR THE CORRECT CONTENT 

COMPLEMENT THE LOCATION AND READ IT| COMPLEMENT THE LOCATION 

BACK TO ITS ORIGINAL VALUE AND READ IT AGAIN 

STARTING FROM THE HIGHEST LOCATION UNDER TEST REPEAT STEPS 

3 £. 4 UNTIL THE LOWEST LOCATION UNDER TEST IS REACHED 

REPEAT STEPS 1-5, HOWEVER THIS TIME LOCATIONS WITH XOR 

OF ADDRESS BITS 8 £i 13 8| ARE WRITTEN TO SWAPPED BAKPAT 

REPEAT STEPS 1»5, HOWEVER THIS TIME LOCATIONS WITH XOR 

OF ADDRESS BITS 3 6 9 al ARE WRITTEN TO SWAPPED BAKPAT 

REPEAT STEPS 1''7 WITH A BACKGROUND OF SWAPPED BAKPAT AND 

THE LOCATIONS TO BE WRITTEN TO SWAPPED BAKpAT WRITTEN TO 

BAKPAT, 

TSTl2f CMPB #12#i#«TESTN jCHECK FOR PROPER TEST SEQUENCE 

BEQ ,4-10 

JSR PCSEQERR ?«ERROR# REPORT ERROR MESSAGE AND HALT AT FATHLT 

41 |»««*««ERROR NUMBER 4l»»#»«* 



iPREPARE TO TAKE THE EXCLUSIVE OR OF ADDRESS BITS 1 

}AND 8 

J INITIALIZE THE COUNTER FOR THE SUBTEST 

jPLACE THE STARTING ADDRESS OF MEMORY UNDER 

jTEST IN Rl 



>»TEST 12 

i»(n 

f» 

»* 

I» 

f»C2) 

l» 

f» 

|»(35 

I*(4) 

I* 

l«(S) 

l» 

|»C6) 

l« 

l»(7) 

f» 

l*(8) 

f» 

l# 





MOV 


ll»R2 




MOV 


#400, R3 


iSi 


MOVB 


#l,(a#PASFLG 


2$l 


MOV 


R4,R1 


481 


MOV 


p#BAKPAT,R0 




BIT 


R2,Pl 




BNE 


8$ 




BIT 


R3,R1 




BED 


12S 


6$: 


COM 


R0 



BP 
BIT 

BEQ 

BITB 

BNE 



12$ 
R3,P1 

6$ 

#2f ^iPASFLG 

14$ 



jCHECK TO SEE IF ADDRESS BIT STORED IN R2 IS SET 

lIF IT Is SET THEN GO TO 8$ 

iCHECK TO SEE IF ADDRESS BIT POINTED BY R3 IS SET 

|IF IT IS NOT SET THEN GO TO 12S 

»COME HERE ONLY IF EXCLUSIVE OR OF ADDRESS BITS 

jPOINTED BY R2 6 POINTED BY R3 = 1 IN WHICH 

iCASE PREPARE TO WRITE THE LOCATION 

JWITH A COMPLEMENT OF LOCATIONS NOT MEETING 

jTHIS CONDITION 

jCOME HERE IF ADDRESS BIT POINTED BY R2 IS 1 AND 

jCHECK ADDRESS BIT POINTED BY R3 

lIF ADDRESS BIT POINTED BY P3 IS THEN GO TO 6S 

lis IT 2ND OR 3PD PASS OF THE SUBTEST ? 

?IF SO THEN READ THE MEMORY 
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2289 


004140 


010011 






MOV 


R0,{R1) 


2290 


004142 


020011 




14SI 


CMP 


R0»{R1) 


2291 


004144 


001403 






BEQ 


16$ 


2292 


004146 


004767 


001426 




JSR 


PC, ERROR 


(1) 


004152 


000042 






42 




(l) 














2293 


004154 


012746 


000002 


16SI 


MOV 


#2,-CSP) 


2294 


004160 


005100 




18SI 


COM 


R0 


2295 


004162 


005111 






COM 


(PI) 


2296 


004164 


020011 






CMP 


R0,(P1) 


2297 


004166 


001404 






BEQ 


19S 


2298 


004170 


004767 


001404 




JSR 


PC, ERROR 


CI) 


004174 


000043 






43 




(1) 














2299 


004176 


010011 






MOV 


R0,(PU 


2300 


004200 


005316 




19SI 


DEC 


(SP) 


2301 


004202 


001366 






BNE 


18$ 


2302 


004204 


005726 






TST 


CSP) + 


2303 


004206 


122737 


000003 000306 




CMPB 


83,9«PASFLG 


2304 


004214 


001412 






BEQ 


20$ 


2305 


004216 


062701 


000002 




ADD 


#2,R1 


2306 














2307 


004222 


020105 






CMP 


Rl,R5 


2308 


004224 


103727 






BLO 


4$ 


2309 


004226 


105237 


000306 




INCB 


g#PASFLG 


2310 


004232 


122737 


000002 000306 




CMPB 


#2,@#PASFLG 


2311 


004240 


001720 






BEQ 


28 


2312 


004242 


162701 


000002 


20$l 


SUB 


#2, PI 


2313 














2314 


004246 


020104 






CMP 


P1,R4 


2315 


004250 


103315 






BHIS 


4S 


2316 


004252 


012702 


020000 




MOV 


#20000, R2 


2317 














2318 


004256 


105237 


000307 




INCB 


g#pASFLG*l 


2319 


004262 


123727 


000306 000002 




CMPB 


@#PASFLGf#2 


2320 


004270 


103701 






BLO 


1$ 


2321 


004272 


101004 






BHI 


22S 


2322 


004274 


012702 


000010 




MOV 


#10, R2 


2323 


004300 


006303 






ASL 


R3 


2324 


004302 


000674 






BR 


1$ 


2323 


004304 


005137 


000316 


22$l 


COM 


e»BAKPAT 


2326 


004310 


105737 


000316 




TSTB 


9#BAKPAT 


2327 


004314 


001654 






BEQ 


TST12 


2328 


004316 


000625 




END12I 


BR 


END 10 



^OTHERWISE WRITE THE MEMORY BFORE READING IT 
I READ THE MEMORY FOR CORRECT CONTENTS 



j#ERPOR» REPORT ERROR MESSAGE 
l#»«»»»ERROR NUMBER 42«»**** 



;READ THE MEMORY AGAIN 

|»ERROR* REPORT ERROR MESSAGE 
j«»»»»«ERROR NUMBER 43****** 

^RESTORE THE LOCATION (Rl) 

jEXECUTE THE CODE FROM 18$ TWICE 

jPESTORE THE STACK POINTER 

lis IT THE 3RD PASS OF THE SUBTEST ? 

I IF SO THEN GO TO 20$ 

I IN FIRST 2 PASSES THE PROGRAM PROCEEDS IN 

IMIN, TO MAX, DIRECTION 

iHAVE WE PEACHED THE MAX, ADDRESS UNDER TEST ? 

I IF NOT THEN REPEAT FROM 4S 

I IF IT IS THE 2ND PASS OF THE SUBTEST 

I THEN REPEAT FROM 2S 

yOTHERWiSE EXECUTE THE TEST IN MAX, TO MIN, 

IDIRECTION 

iHAVE WE REACHED THE MIN, ADDRESS UNDER TEST ? 

I IF NOT THEN REPEAT FROM 4$ 

iPREPARE TO CHECK THE MEMORY WITH THE XOR OF 

lADDRESS BITS 8 AND 13 

ITHE SUB TEST HAS CHECKED THE XOR ONE KIND 

IHAS TWO XOR COMBINATIONS BEEN CHECKED 7 

I IF NOT THEN GO TO IS 

I IF ALL THREE HAVE BEEN CHECKED THEN GO TO 228 

lIF IT IS THE 2ND XOR COMBINATION THEN CHECK 

|FOP ADDRESS BITS 3 & 8 

I IF THE TEST WAS NOT PERFORMED WITH THE SWAPPED 

iBAKPAT THEN RE-EXECUTE THE TEST 
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2359 

(3) 

(4) 

C4) 

(4) 

C4J 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

C4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

C4) 

C4) 

(4) 

(4) 

(4) 

C3) 

(2) 

2360 

2361 

(1) 

(1) 

2362 

2363 

2364 

2365 

2366 

2367 

2368 

2369 

2370 

2371 

2372 

2373 

2374 

2375 

2376 

2377 

2378 

2379 

2380 

2381 

2382 
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004320 
004326 
004330 
004334 

004336 

004342 



004346 
004350 
004352 
004354 
004356 
004360 
004362 
004364 
004366 
004372 
004374 
004376 



122737 
001403 
004767 
000044 

012702 

012700 



010546 
010446 
000241 



000013 
001602 

010247 
177667 



160405 
006005 
103002 
062716 
012604 
012605 
010403 



}«TEST 13 WRITE RECOVERY TEST 

j« THIS TEST DIFFERS FROM 0«12 IN THAT IT CONSISTS OF A SMALL TEST PROGRAM 

|» ACTUALLY RUNNING IN THE 4K BANK UNDER TEST, 

l» THE PROGRAM IS SELF MODIFYING AND MAY BE DIFFICULT TO DEBUG. 

»» TO AID IN THE DEBUG, BEFORE A A BANK IS ENTERED "TSTU BANK XX" 

|« IS TYPED. THIS WILL ALLOW THE USER TO AT LEAST SEE WHICH MEMORY 

># BANK FAILED, 

I« THE TEST CONSISTS OF 1/2 OF THE BANK STORED WITH "MOV R2,»(PC)» 

»» AND THE OTHER 1/2 CONTAINING "177667«, "177667" IS THE COMPLEMENT 

j» OF "JMP CR0)" INSTRUCTION, 

f» R2 CONTAINS "COM -(RU" INSTRUCTION ON ENTRY TO THE BANK AND Rl CONTAINS 

j» THE HIGHEST TEST ADDRESS IN THAT BANK, THE HIGHEST TEST ADDRESS IS 

»« USUALLY ON 4K BOUNDARIES, WHEN TESTING BANK RELOCATED, HOWEVER 

»« Rl CONTAINS THE FIRST FREE TEST ADDRESS BELOW THE DIAGNOSTIC, 

l» IF YOU UNDERSTAND THIS SO FAR THE REST IS EASY, 
l» THE TEST EXECUTION IS AS FOLLOWSl 

>» la THE "MOV R2,»(PC)" INSTRUCTION EXECUTES STORING 

»» THE CONTENTS OF R2 IN THE ADDRESS IT VACATED (DUE TO »CPC), 

I* 2, SINCE R2 CONTAINS A "COM -(Rl)" INSTRUCTION IT COMPLEMENTS 

>« THE HIGHEST ADDRESS UNDER TEST, THIS ADDRESS CONTAINED 

>» "177667" SO AFTER THE COM •CRl) IT EQUALS 110 

I* CLEVERLY THIS IS THE "JMp CR0)n INSTRUCTION, 

l« 3, THIS SEQUENCE CONTINUES UNTIL THE "MOV R2,»CPC) INSTRUCTIONS 

f» REACH THE MIDDLE OF THE TEST BANK, THEN THE "JMp (R0)" INSTRUCTION Is 

t* AND EXECUTED. R0 CONTAINED THE RETURN ADDRESS BACK 

TO TEST 13, 
4, THESE STEPS ARE REPEATED FOR EACH BANK UNDER TEST, 



j« 

J I #«#»*»»*»««»#«»«»»«■»»»«■#«»«##»»##»»»»#»*««*«*««•#»»»««.•»»«»»»»»»» 

TSTiat CMPB #13,i#8TESTN yCHECK FOR PROPER TEST SEQUENCE 

BEG ,-♦•10 

JSR PCSEQERR f»EPROR« REPORT ERROR MESSAGE AND HALT AT FATHLT 

44 ;##»»««ERROR NUMBER 44«««#«« 



ISI 



MOV 



MOV 



#10247, R2 jPLACE THE Op CODE OF INSTRUCTION MOV R2,-(PC) 

;IN R2, 
#177667, R0 iPLACE THE COMPLEMENT OF THE INSTRUCTION 
»JMP (R0) IN R0 
I INSURE LOWEST TEST ADDRESS TO END OF 4K SEGMENT IS MULTIPLE OF 2 
JSINCE THE TEST STORES "MOV R2,"CPC) IN 1/2 AND 177667 IN THE OTHER 1/2 



2SI 



MOV 


R5,«CSP) 


MOV 


R4,"(SP) 


CLC 




ROR 


R5 


ROR 


R4 


SUB 


R4,R5 


ROR 


R5 


BCC 


301 


ADD 


#2,(SP) 


MOV 


(SP)+,R4 


MOV 


(SP)*,R5 


MOV 


R4,R3 



004400 000405 



I SAVE R5 

iSTORE LOWEST ADDRESS ON STACK 

jMAKE POSITIVE BYTE COUNT OF HIGH ADDRESS 

;D0 SAME FOR LOWEST ADDRESS 

iGET DIFFERENCE OF LOWEST ADDRESS AND HIGHEST 

»IF DIFFERENCE IS ODD THEN P4 IS AT LOWEST ADDRESS 

jBRANCH IF R4 IS AT LOWEST TEST ADDRESS, 

J INCREASE LOWEST TEST ADDRESS BY 2 

jRESTORE R4 (POSSIBLY INCREASED BY 2 FROM ENTRY) 

^RESTORE HIGHEST TEST ADDRESS 

jPLACE THE LOWEST LOCATION UNDER TEST 

yiN R3 

ILEAVE LOW BITS OF R3 ALONE FIRST TIME IN CASE BANK 
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2383 


004402 


042703 


017776 


2384 








2385 


004406 


105737 


000405 


2386 


004412 


100504 




2387 


004414 


020305 




2388 


004416 


103102 




2389 








2390 


004420 


020527 


020000 


2391 


004424 


103002 




2392 


004426 


010501 




2393 


004430 


000405 




2394 








2395 


004432 


010301 




2396 


004434 


042701 


017776 


2397 


004440 


062701 


020000 


2398 








2399 


004444 


020137 


000340 


2400 


004450 


101065 




2401 








2402 








2403 








2404 


004452 


132737 


000001 00{ 


2405 


004460 


001101 




2406 








2407 








2408 








2409 


004462 


020304 




2410 


004464 


103430 




2411 


004466 


105737 


000307 


2412 


004472 


001002 




2413 








2414 


004474 


012713 


010247 


2415 


004500 


020213 




2416 


004502 


001421 




2417 


004504 


010046 




2418 


004506 


010146 




2419 


004510 


010301 




2420 


004512 


010200 




2421 


004514 


004767 


001060 


(1) 


004520 


000045 




(1) 








2422 


004522 


012601 




2423 


004524 


012600 




2424 


004526 


10S737 


000306 


2425 








2426 








2427 








2428 


004532 


001005 




2429 








2430 


004534 


010200 




2431 


004536 


004767 


001036 


(1) 


004542 


000046 




(1) 








2432 


004544 


000664 




2433 








2434 


004S46 


062703 


000002 
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3SJ BIC 

TSTB 
BMI 
28$l CMP 
BHIS 



i#REL 
14$ 
R3,R5 
14S 



jCAUSE R3 TO POINT TO THE LOWEST LOCATION 

yIN THE 4K BANK UNDER TEST 

;ARE WE RELOCATED? 

^BRANCH IF YES-TEST BANK0 ONLY- 

I IF R3 IS HIGHER THAN THE HIGHEST LOCATION 

jUNDER TEST THEN EXIT 



I IF R5 LESS THAN 20000 THEN WE ARE TESTING BANK0 RELOCATED IN BANK0 
CMP R5, #20000 ;IS HIGHEST TEST ADDRESS BELOW 4K? 
BHIS 318 jBRANCH IF NO 

MOV R5,R1 jSET Rl TO HIGHEST TEST ADDRESS IN BANK0 

BR 32$ 

?SET PI TO LOWEST CURRENT TEST ADDRESS 
;CLEAR LOW ORDER ADDRESS BITS 
yCAUSE Rl TO POINT TO THE HIGHEST L0CATI0N4-2 
;0F THE 4K BANK BEING POINTED BY R3 
jIF Rl IS HIGHER THAN MAX, OF THE 
;MEM0RY4-2 ALTHOUGH R3 IS LESS THAN R5 
ITHEN THE HIGHEST LOCATION UNDER 
ITEST IS NOT IN A 4K BANK EXIT 

tlS THE LOWEST BIT OF LOCATION PASFLG 
;SET7 IN WHICH CASE BACK GROUND HAS 
jALREADY BEEN WRITTEN AND WRITE RECOVERY 
;TEST IS BEING PERFORMED 

jOTHERWiSE WRITE THE BACKGROUND 

iDEFINEO AT STEP 3, 

}IS THE TEST JUST DOING READ, I,E, 

;IS THE PASFLG4-1 LOCATION NON ZERO? IF SO 

ITHEN GO TO 6$ 

yWRlTE THE LOCATION WITH THE OP CODE FOR MOV R2,»(PC) 

IREAD (R3) TO CONTAIN CORRECT DATA 

I SAVE R0 

lAND Rl ON THE STACK 

J SET R0a GOOD DATA FOR ERROR PRINTOUT 
}«ERROR<» REPORT ERROR MESSAGE 
}««««««ERROR NUMBER 4S«««««» 

; RESTORE Rl 

}AND R0 

I IF PASFLG IS AND THE MEMORY DOES NOT HAVE 

I THE PROPER DATA THEN WE DON'T WANT TO GO AND 

JEXECUTE THE INSTRUCTIONS STORED IN MEMORY UNDER 

I TEST 

{BRANCH IF PASFLG NOT 80 



31$l 


MOV 


P3,R1 




BIC 


#17776, Rl 




ADD 


#20000, Rl 


32SI 


CMP 


R1,9#MAXMEM 




BHI 


14S 




BITB 


»l,9#PASFLG 




BNE 


16S 


4$| 


CMP 


R3,R4 




BLO 


8$ 




TSTB 


l#PASFLG+l 




BNE 


6$ 




MOV 


#10247, (R3) 


6SI 


CMP 


R2,(R3) 




BEQ 


8$ 




MOV 


R0,»(SP) 




MOV 


R1,-(SP) 




MOV 


R3,R1 




MOV 


R2,R0 




JSR 


PC, ERROR 




45 






MOV 


(SP)-^,R1 




MOV 


(SP)+,R0 




TSTB 


@«PASFLG 



MOV 
JSR 
46 

BR 

ADD 



R2,R0 fSAVE FOR ERROR REPORT 
PC, ERROR ;»ERROR« REPORT ERROR MESSAGE 
l»ff«i»»»ERROR NUMBER 46««<»««« 



END 12 
#2,R3 



lABORT TST 13, 

» INCREMENT R3 BY 2 
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004SS2 


162701 


000002 




0045S6 


020105 






004560 


103014 






004562 


020103 






004564 


103405 






004566 


105737 


000307 




004572 


001002 






004574 


012711 


177667 












004600 


020011 






004602 


001403 






004604 


004767 


000770 




004610 


000047 














004612 


020301 






004614 


103722 






























004616 


062703 


020000 




004622 


000667 














004624 


122737 


000001 000306 




























004632 


001440 






















004634 


103633 






















004636 


105137 


000307 




















004642 


001241 






004644 


012702 


005141 












004650 


012700 


177740 




004654 


060700 






























004656 


105237 


000306 




004662 


000631 














004664 


032777 


000020 173556 




004672 


001017 






004674 


105737 


000042 




004700 


001014 






004702 


004767 


001660 




004706 


051524 


030524 020063 




004714 


040502 


045516 000 






004722 






004722 


004767 


002476 


2490 


004726 


004767 


001662 



12$| 



SUB 

CMP 

BHIS 

CMP 

BLO 

TSTB 

BNE 

MOV 


«2,R1 

R1,R5 

12$ 

R1,R3 

10$ 

§#PASFLG*1 

10$ 

#177667, (Rl) 


CMP 
BED 
JSR 
47 


R0,CR1) 

128 

PC, ERROR 


CMP 
BLO 


R3,R1 
48 


HERE 


AFTER PROGRAM R 


ADD 
BR 


«20000,R3 
38 


CMPB 


#l,P#PASrLG 


BEG 


24$ 


BLO 


END12 


COMB 


i«PASFLG*l 


BNE 
MOV 


28 
#5141, R2 



MOV #13$-, «6, 
ADD PC,R0 



INCB 


f«PASFLG 


BR 


28 


BIT 


#20,esWR 


BNE 


188 


TSTB 


8#42 


BNE 


188 


JSR 


PCPNTMES 


.ASCXZ 


/TST13 BANK/ 


.EVEN 




JSR 


PCGETBNK 


JSR 


PC,8TPDEC 



IDECREMENT Rl BY 2 

JWRITE THE BACKGROUND DEFINED AT STEP 4, 

IHAS STORING THE 177667 REACHED WHERE «MOV R2,-(PC) 

jBRANCH IF YES DON'T DESTROY THE MOV R2,-(PC) IS, 

J IS THE THE READ ONLY CHECK PASS? 

^BRANCH IF YES 

IWRITE THE LOCATION WITH THE COMPLEMENT OF THE 

»0P CODE JMP (R0) 

IREAD Rl TO CONTAIN CORRECT DATA 

|»ERROR* REPORT ERROR MESSAGE 
7#«»*»«ERR0R NUMBER 47««««»<^ 

;IF WE HAVE NOT REACHED THE MIDDLE OF 4K BANK 
J THEN REPEAT FROM 48 



lOTHERWiSE GO TO THE NEXT 4K BANK 



I THE PROGRAM CONTROL COMES HERE AS FOLLOWS 
7l"PASFLGa0, PROGRAM HAS JUST COMPLETED A 
I WRITE/READ CYCLE FOR THE BACK GROUND 
t AND WANTS TO BEGIN THE WRITE RECOVERY TEST 
j2-PASFLGb1, PROGRAM HAS JUST COMPLETED 
1 THE WRITE RECOVERY TEST AND WANTS TO 
I READ MEMORY FOR CORRECT DATA 
|3»PASFLGa2, PROGRAM HAS CORRECTLY READ THE 
1 MEMORY AND WANTS TO GO THE NEXT TEST, 

jENTER HERE WITH PASFLGa0, ON THE FIRST ENTRY 
lENABLE READ ONLY FOR THE MEMORY AND ON THE SECOND 
jENTRY DISABLE READ ONLY 

jPLACE THE Op CODE FOR INSTRUCTION COM -(Rl) 
;IN R2 

iPLACE THE RETURN ADDRESS IN R0 AS 138 
JTHUS WHEN THE READ RECOVERY TEST REACHES 
jTHE MIDDLE OF THE 4K MEMORY THEN THE 
I INSTRUCTION EXECUTED WILL BE JMP (R0) 
jBRANCHINGING THE PROGRAM TO US 
J INCREMENT PASFLG BY I, 



jHAS THE PRINTOUTS BEEN SUpRESSED ? 

iir so THEN GO TO 188 

jIS THE PROGRAM RUNNING UNDER ACT? 

^BRANCH IF YES 

J TYPE THE BANK UNDER TEST 



jGET BANK NO, UNDER TEST INTO DECWRD FOR PRINT, 
;TYPE BANK NO, UNDER TEST 
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2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 
250} 



004732 000113 



004734 105137 000307 
004740 012700 000110 
004744 000744 



1881 JMP 
2481 



COMB @«PASFLG4l 
MOV #110, R0 
BR 158 



ITST13 EXITS VIA END12, 



IBEGIN EXECUTING MOV R2,-(PC) ,COM -(Rl) SEQUENCE IN TES 



jPLACE THE OP CODE FOR JMP CR0) IN R0 

J READ THE MEMORY FOR CORRECT DATA AFTER 

yINCREMEMTING PASFLG TO 2 
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2506 


004746 


012737 


000377 000316 


2507 


004754 


105737 


000276 


2508 


004760 


001065 




2509 








2510 


004762 


032777 


001000 173460 


2511 


004770 


001046 




2512 


004772 


105737 


000405 


2513 


004776 


100420 




2514 


005000 


112737 


000200 000405 


2515 








2516 








2517 








2518 








2519 


005006 


004767 


001554 


2520 


005012 


042522 


047514 000103 


2521 








2522 


005020 


013705 


000340 


2523 








2524 


005024 


014445 




2525 


005026 


020427 


000430 


2526 


005032 


101374 




2527 


005034 


000165 


000050 


2528 








2529 








2530 








2531 








2532 


005040 


013705 


000346 


2533 


005044 


105737 


000405 


2534 


005050 


100016 




2535 








2536 


005052 


012704 


000430 


2537 


005056 


012524 




2538 


005060 


020537 


000340 


2539 


005064 


103774 




2540 


005066 


105037 


000405 


2541 


005072 


010537 


000346 


2542 


005076 


012706 


000500 


2543 


005102 


010637 


000350 


2544 


005106 


000137 


005112 


2545 








2546 








2547 








2548 


005112 


105737 


000315 


2549 


005116 


001073 




2550 


005120 


004767 


001714 


2551 








2552 


005124 


105737 


000276 


2553 


005130 


001462 




2554 


005132 


000402 




2555 


005134 


004767 


002052 


2556 


005140 


012703 


000324 


2557 


005144 


004767 


002160 


2558 








2559 


005150 


012704 


020000 


2560 








2561 


005154 


020237 


172342 



»377,§#BAKPAT 



TSTB 


i#MMAVA 


BNE 


CONTMM 


BIT 


«1000f 9SWR 


BNE 


CKDONE 


TSTB 


gSREL 


BMI 


RELOER 


MOVB 


#200,9«REL 



lis THE MEMORY MANAGEMENT BEING TESTED ? 

fir SO THEN GO TO CONtMM AND CONTINUE TESTING 

fMEMORY MANAGEMENT 

IRELOCATION WANTED? 

iBRANCH IF NO 

;IF THE PROGRAM HAS ALREADY BEEN RELOCATED THEN ALSO 

; PLACE THE PROGRAM BACK IN LOWER CORE 

fOTHEPWlSE PREPARE TO RELOCATE 



IRELOCATE THE DIAGNOSTIC TO HIGHEST AVAILABLE MEMORY 



ITYPE "RELOC" 



JSR 


PCPNTMES 


.ASCIZ 


/RELOC/ 


.EVEN 




MOV 


i#MAXMEM,R5 


MOV 


«(R4),«.(R5) 


CMP 


r4,»BEG1N-5 


BHI 


2$ 


JMP 


50(R5) 



^PREPARE TO LOAD THE PROGRAM IN THE HIGHEST 

^AVAILABLE MEMORY 

{RELOCATE THE PROGRAM 

^NEITHER RELOCATE NOR TEST LOCATIONS LOWER THAN BEGIN«50 



>»RELOCATE THE DIAGNOSTIC BACK TO LOWER MEMORY 



ELOERt 


MOV 


@#SAVR5,R5 




TSTB 


iUREL 




BPL 


CKDONE 




MOV 


»BEGIN-50,R4 


Si 


MOV 


CR5) + #CR4.)4- 




CMP 


R5,##MAXMEM 




BLO 


2$ 




CLRB 


9#REL 




MOV 


R5,9#SAVR5 




MOV 


#BEGIN,SP 




MOV 


SP,9«SAVR6 


KDONEl 


JMp 


9#L0WER 



LOWERI TSTB @#SAVKBB 

BNE STPSTK 
TSTMMI JSR PC#MEMMNG 



TSTB 
BEQ 
BR 
CONTMMi JSR 
SCNTMMi MOV 
JSR 



9#MMAVA 

ENDPAS 

SCNTMM 

PCUPMM 

#L0WTW0#P3 

PCGETSII 



MOV #20000#R4 
CMP R2,a«172342 



^RESTORE R5 

I IS DIAGNOSTIC IN RELOCATED STATE? 

^BRANCH IF NO 

J PREPARE TO RELOCATE THE PROGRAM TO LOWER CORE 



J SAVE R5 

JRESET STACK TO LOWER MEMORY 

J "BEGIN" USES THIS TO RESET THE STACK, 

^TRANSFER THE PROGRAM CONTROL TO THE LOWER CORE 



jHEPE DUE TO "C TYPED? 

^BRANCH IF YES (TYPE ERROR STACK) 

t SET THE REGISTERS IF THE MEMORY MANAGEMENT 

;IS AVAILABLE 

;IS MEM, MANAG. AVAILABLE ? 

jBRANCH IF NO 

iBEGIN TESTING ABOVE 28K 

jGO TO UPDATE MEM, MANAG, REGISTERS 

jMAKE R3 POINT TO THE LOCATION LOWTWO 

i LOAD BITS 6-10 OF R2 WITH THE BITS 13-17 

|0F THE LOWEST ADDRESS UNDER TEST 

jMAKE R4 POINT TO THE LOWEST LOCATION IN THE BANK 

{POINTED BY PAGE ADDRESS REGISTER 1 (PARI) 

lis THE CONTENT OF R2 LOWER THAN THE CONTENT OF 
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2562 








2563 


005160 


103405 




2564 


005162 


050104 




2565 








2566 


005164 


162702 


000200 


2567 


005170 


004767 


001650 


2568 


005174 


004767 


002130 


2569 








2570 








2571 


005200 


004767 


000020 


2572 


005204 


010005 




2573 


005206 


004767 


002116 


2574 


005212 


004767 


000006 


2575 


005216 


010013 




2576 


005220 


000167 


174242 


2577 








2578 








2579 








2580 








2581 








2582 








2583 








2584 








2585 


005224 


010046 




2586 


005226 


012700 


172356 


2587 








2588 


005232 


162716 


020000 


2589 


005236 


050116 




2590 


005240 


020240 




2591 


005242 


001410 




2592 


005244 


020027 


172340 


2593 


005250 


101370 




2594 








2595 


005252 


005720 




2596 


005254 


021002 




2597 


005256 


003006 




2598 


005260 


012716 


157776 


2599 


005264 


012600 




2600 


005266 


062700 


000002 


2601 


005272 


000207 




2602 








2603 


005274 


022626 




2604 









BLO 
Bis 

SUB 
JSR 
JSR 



JSP 
MOV 
JSR 
JSR 
MOV 
JMP 



2$ 
R1,R4 

»200»R2 

PCMMREG 

PCGETSIZ 



PCMAXADR 

R0,R5 

PCGETSIZ 

PCMAXADR 

R0»(R3) 

CLRMEM 



jPARl ? 

I IF SO THEN GO 2S 

jSUBROUTINE GETSIZ LOADED Rl WITH BITS 0-12 

|0F LOWADD WHICH HAVE NOW BEEN LOADED IN R4 

J SET MEM, MANAG, REGISTERS 

IPLACE BITS 13-17 OF HIGHEST LOCATION TO BE TESTED 

lIN BITS 6-10 OF R2, #160000 IN R0 AND BITS 0-12 

fOF LOCATION HIGHADD IN Rl 

J GET THE ADDRESS OF MAX, MEM, UNDER TEST 

J PREPARE TO SET UP LOCATION MAXMEM 

t GET THE MAXIMUM ADDRESS OF AVAILABLE MEMORY 

jAND STORE INTO "MAXMEM" 

iGO TEST A 24K SLICE ABOVE 28K. 



jMAXADR - SUBROUTINE TO GET CURRENT 24K SLICE OF MEMORY ADDRESSES ABOVE 28K, 

jREGISTERSi 

jP0a ON ENTRYa #160000 AND ON EXITsHIGHEST VIRTUAL ADDR, UNDER TEST 

>Rls LOW ORDER 12 BITS OF VIRTUAL TEST ADDRESS 

jR2a PAR BLOCK NO, CURRENTLY UNDER TEST, 

MAXADRi MOV R0,-(SP) jPUT MAXIMUM AVAILABLE ADDRESS ON STACK 

MOV #l72356fR0 |R0sPAR7 UNIBUS ADDRESS 
|»»BEGIN LOOP TO FIND PAR ADDRESS UNDER TEST 

281 SUB #200001 (SP) IDECREMENT VIRTUAL ADDRESS BY 4K 

BIS R1«(SP} iSET BITS 11|0 TO MAXIMUM VIRTUAL TEST ADDRESS 

CMP R2,-(R0) iDOES CURRENT PAR» TEST BLOCK NO,? 

BEQ 3$ iBRANCH IF YES 

CMP R0»#172340 ;ARE WE AT PAR0? 

BHI 28 |N0 KEEP TRYING 

l»»END LOOP TO FIND PAR ADDRESS UNDER TEST 



TST 

CMP 
BGT 
MOV 
MOV 
ADD 
RTS 

CMP 



(R0)+ iSET TO PAR CURRENT 

(R0),R2 )IS THE PAR BLOCK UNDER TEST GTR THAN ALLOWED? 

4$ {BRANCH IF YES (FALL INTO ENDPAS) 

#157776#(SP) {EXIT WITH MAXADRb 28K SEGMENT TEST SIEE 

(SP)+,R0 iSET R0 TO MAXIMUM VIRTUAL TEST ADDRESS 

«2»R0 {MAKE MAXIMUM MEMORY4>2 

PC {AND EXIT MAXADR ROUTINE 



(SP)+,(SP)+ 



{FIXUP STACK 

{AND FALL THRU TO ENDpAS, 
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2609 








2610 








26il 








2612 








2613 








2614 








261S 








2616 








2617 


005276 


032777 


000020 


2618 


005304 


001053 




2619 


005306 


012746 


177777 


2620 








2621 


005312 


012701 


007744 


2622 








2623 


005316 


012703 


000376 


2624 


005322 


005216 




2623 


001324 


020137 


000310 


2626 


005330 


103043 




2627 


005332 


112702 


000022 


2628 


005336 


105302 




2629 


005340 


002766 




2630 








2631 


005342 


105721 




2632 


005344 


001774 




2633 


005346 


020227 


000020 


2634 








2635 








2636 


005352 


103404 




2637 


0053S4 


101026 




2638 








2639 


005356 


004767 


001012 


2640 


005362 


000404 




2641 


005364 


010237 


000312 


2642 








2643 


005370 


004767 


001214 


2644 


005374 


011637 


000312 


2645 


005400 


004767 


001210 


2646 


005404 


005043 




2647 


005406 


114113 




2648 








2649 


005410 


105021 




2650 


005412 


005043 




2651 


005414 


105237 


000314 


2652 


005420 


004767 


001330 


2653 








2654 


005424 


012703 


000376 


2655 


005430 


000742 




2656 


005432 


004767 


000762 


2657 


005436 


000756 





f» TYPE ROUTINE FOR ERROR STACK 



THIS ROUTINE IS USED TO DETERMINE IF TYPE OUT OF THE ERROR STACK 



I ARE WE GOING TO TYPE THE ERROR STACK AND END OF PASS? 

;IF NOT THEN GO TO SEOP 

I THE PROGRAM HAS REACHED THE END AND ERROR 

JSTACK AND END OF PASS WILL BE TYPED OUT 

J PLACE THE STARTING ADDRESS OF THE ERROR STACK 

IFOR TO 4K MEMORY IN Rl 

I IF WE HAVE GONE THRU THE ENTIRE 

I HAS THE END OF THE ERROR STACK BEEN REACHED I 

fTHEN GO TO TYPE END OF PASS 

16 BITS OF THIS BANK HAVE BEEN CHECKED, 

fBEEN CHECKED FOR ERROR THEN SEE IF THERE 

lis ANY MORE 4K MEMORY BANK 

fOTHERWlSE CHECK THE BYTE STORED AT (Rl) 

I IF IT IS WE WILL NOT TYPE IT 

J IS THE POINTER POINTING TO ERROR STACK BYTE 

;MEANT FOP COLLECTING ADDRESS FAILURES FOR 

iTHE SPECIFIC MEMORY BANK 

?IF NOT THEN GO TO TYpE BIT NUMBER 

?IF IT IS POINTING TO THE STACK LOCATION INTENDED 

jTO COLLECT PARITY FAILURES THEN GO TO PARFL 

^OTHERWISE TYPE "ADDRESS ERROR" 

fPREPARE TO TYPE THE NUMBER OF THE FAILING BIT 

jIN DECIMAL 

|G0 TO TYPE THE BIT NUMBER IN DECIMAL 

IPPEPARE TO TYPE THE PAGE NUMBER 

jIN DECIMAL 

^PREPARE TO PRINTOUT THE NUMBER OF TIMES THIS 
^FAILURE OCCURED 
iCLEAR THE ERROR STACK 

fENABLE THE TYPE OUT OF 1 WORDS 

1 TYPE THE 4K BANK AND THE NUMBER OF TIMES 

;THIS FAILURE WAS SEEN 

jRESET SCRATCH STACK FOR EACH BIT PRINTED, 

J TYPE "PAR ERR" 





1© 
I* 


THIS ROUTINE IS 
FOR ONLY THE FA 


ENDPASI 
STPSTKi 


BIT 
BNE 
MOV 


#20fSSWR 

lEOP 

««1,«{SP) 




MOV 


#ENDPRG,R1 


TYPSTKi 
RETSTKi 


MOV 

INC 

CMP 

BHIS 

MOVB 

DECB 

BLT 


»376,R3 

(SP) 

Rl,gl#ENDSTK 

SEOP 

iie.,R2 

R2 J IF ALL 

TYPSTK 




TSTB 

BEQ 

CMP 


(Rl) + 

RETSTK 

R2#»16, 




BLO 
BHI 


2S 

PARFL 


2$i 


JSR 

BP 

MOV 


PCTPADER 

FAILNM 

P2r©#DECWRD 


FAILNMi 


JSR 
MOV 
JSR 
CLR 
MOVB 


PCTYPDEC 

(SP),9#DECWRD 

PCSTPDEC 

»(R3) 

»(R1),(R35 




CLRB 
CLR 
INCB 
JSR 


CRD* 
•(R3) 

9#TYPCNT 
PCRPTOCT 


PARFLI 


MOV 
BP 
JSR 
BR 


#376, R3 
RETSTK 
PCrTPPREP 
FAILNM 
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2662 








2663 








2664 








2665 








2666 








2667 








2668 








2669 








2670 








2671 








2672 








2673 


005440 


005002 




2674 


005442 


004767 


002036 


2675 


005446 


105737 


000315 


2676 


005452 


001046 




2677 


005454 


005237 


000406 


2678 


005460 


032777 


000040 


2679 


005466 


001015 




2680 


005470 


004767 


001064 


2681 


005474 


047105 


020104 




005502 


051523 


021440 


2682 




005510 




2683 


005510 


013737 


000406 


2684 


005516 


004767 


001072 


2685 


005522 


013700 


000042 


2686 


005526 


001405 




2687 


005530 


004767 


000012 


2688 


005534 


000005 




2689 








2690 








2691 








2692 


005S36 


000137 


000156 


2693 








2694 


005542 


000137 


000250 


2695 








2696 


005S46 


004767 


001632 


2697 


005S32 


013704 


000344 


2698 


00S556 


014445 




2699 


005560 


020437 


000310 


2700 


005364 


101374 




2701 


005566 


000207 




2702 








2703 








2704 








2705 


005S70 


004767 


177752 


2706 


003S74 


000167 


000402 


2707 








2708 









» END OF PASS 



TYPE "END PASS" AND DISABLE PARITY^ 

ALSO SERVICE ACTU, 

AND EVERY CONSECUTIVE PASSES UNLESS BIT 4 OF 8SWREG IS HIGH 



SEOPI CLR 
JSR 
TSTB 
BNE 
INC 
BIT 
BNE 

TYPEOPI JSR 



R2 

PCfPARITY 

9#SAVKBB 

CTLC 

fi«$PASS 

#40,giSWR 

ACTll 

PC#TPCRLF 



,ASCIZ /END PASS »/ 



jSET R2= PARITY MODULE DISABLE CODE 

jGO DISABLE PARITY MODULES IF SELECTED, 

iCONTROL-C TYPED? 

jBRANCH IF YES-RESTORE LOADERS AND HALT- 

J INCREMENT PASS COUNT 

I "END PASS iXX" PRINTOUT WANTED? 

^BRANCH IF NO 

t TYPE CR» LF, AND "END PASS #" 



.EVEN 

MOV &#$PASS»?#DECWRD |GET PASS COUNT 

JSR PC,$TPDEC ITYPE IT 

ACTUS MOV gi#42,R0 ?GET THE MONITOR ADDRESS 

BEQ IDOAGN I IF NONE 

JSR PC»RLODER ^RESTORE XXDP MONITOR 

RESET iRETURN TO ACTll MONITOR, 



t» SERVICE XXDP/ACTll 

JMP »#$ENDAD 



SDOAGNi JMP 


gfRESTRT 


RLODERl JSR 


PCCLRMM 


MOV 


§#SAVR4,R4 


4$| MOV 


«(R4),«(R5) 


CMP 


R4,i»ENDSTK 


BHI 


4$ 


RTS 


PC 


jCONTROL C HANDLER 


CTLCl JSR 


PCRLODER 


JMP 


APTHLT 



iJUMP TO ACT SERVICE 

jREPEAT TEST IF NOT UNDER ACTll/XXDP 

I STOP MEMORY MANAGEMENT SO CAN RESTORE LOADERS 
IRESTORE R4 WITH SAVR4 
^RESTORE LOADERS 

{RETURN FROM RLODER CALL 



{RESTORE ABS LOADER 

I IF NOT APT HALT AT FATHLT 
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2713 








2714 








271S 








2716 








2717 








2718 








2719 








2720 


005600 


017637 


000000 


2721 


005606 


010346 




2722 


005610 


010046 




2723 








2724 








2725 








2726 


005612 


010103 




2727 


005614 


004767 


001604 


2728 


005620 


013703 


000312 


2729 


00S624 


110337 


000403 


2730 








2731 








2732 








2733 


005630 


010346 




2734 


005632 


012703 


000376 


273S 


003636 


013743 


000306 


2736 


005642 


005043 




2737 


005644 


113713 


000402 


2738 


005650 


016643 


000006 


2739 


005654 


011143 




2740 


005656 


010043 




2741 


005660 


005043 




2742 


005662 


016313 


000004 


2743 


005666 


040013 




2744 


005670 


046300 


000004 


2745 


005674 


050013 




2746 


005676 


012700 


002016 


2747 


005702 


060700 




2748 


005704 


062700 


000022 


2749 


005710 


005316 




2750 


005712 


002374 




2751 


005714 


005726 




2752 








2753 


005716 


105037 


000277 


2754 


005722 


105737 


000300 


2755 


005726 


001007 




2756 


005730 


105720 




2757 


005732 


105737 


000301 


2758 


005736 


001003 




2759 


005740 


105720 




2760 


005742 


005713 




2761 


005744 


100015 




2762 


005746 


122710 


000377 


2763 


005752 


001401 




2764 


005754 


105210 




2765 


005756 


122710 


000001 


2766 


005762 


001404 




2767 


005764 


032777 


000400 


2768 


005772 


001002 





f# ERPOR HANDLING ROUTINE 



000402 ERROR! 
Ill 



I* 
I* 



MOV 
MOV 
MOV 



PROGRAM COMES HERE EACH TIME AN ERROR IS ENCOUNTERED THIS 
ROUTINE TYPES OUT THE ERROR MESSAGE IN THE FORMAT GIVEN EARLIER 

#(SP)»9#SFATAL ;LOAD THE LOCATION gFATAL WITH THE ERROR NUMBER 

R3,»(SP) fSAVE R3 

R0#«(SP) jAND P0 ON THE STACK 



fSETUP BANK NO. IN FATAL FOR APT 



ERRTYPI 
l$t 



2Sl 
3$1 



MOV 
JSR 
MOV 
MOVB 



MOV 

MOV 

MOV 

CLR 

MOVB 

MOV 

MOV 

MOV 

CLR 

MOV 

BIC 

BIC 

BIS 

MOV 

ADD 

ADO 

DEC 

BGE 

TST 

CLRB 

TSTB 

BNE 

TSTB 

TSTB 

BNE 

TSTB 

TST 

BPL 

CMPB 

BEQ 

INCB 

CMPB 

BEQ 

BIT 

BNE 



P1,R3 jGET VIRTUAL ADDRESS UNDER TEST FOR GETBNK 

PC»GETBNK jGET BANK NO, UNDER TEST INTO PBNK 

9#PBNK,R3 jGET BANK UNDER TEST 

R3,I#IFATAL4'1 jSTORE FAILING BANK NO, FOR APT 



R3,»(SP) 

#376, R3 

@#PASFLG,»(R3) 

»CR3J 

g#SFATAL,(R3) 

6(SP),-(R3) 

(Rn»<«(R3) 

R0,-(R3) 

••(R3) 

4(R3),(R3) 

R0,(R3) 

4(R3},P0 

R0,(R3) 

#ENDPRG»,«24,, 

PCfR0 

#18.,R0 

(SP) 

6$ 

(SP)* 

g#TYPENB 

P#SPRERR 

3$ 

(P0) + 

|«SADERR 

3$ 

(R0)* 

CR3) 

4$ 

#377, (R0) 

5S 

(R0) 

S1,CR0) 

7S 

#400,9SWR 

4S 



, TEMPORARILY STORE R3 

fMAKE R3 AS THE STACK POINTER 

I OUTPUT THE WORD STORED AT 

jPUT ERROR NO, ON ERROR STACK 
IPLACE THE RETURN PC AT CR3) 
fPLACE BAD DATA, 
tkHD GOOD DATA ON THE STACK 

;TAKE THE 

^EXCLUSIVE OR OF GOOD AND BAD DATA 
jTO FIND THE BITS THAT FAILED 
jAND PLACE IT ON THE STACK 
R0;THIS CODE BRINGS THE RELATIVE ADDRESS 
>0F THE STARTING OF THE ERROR STACK 
jFOP THE SPECIFIC 4K BANK 



J RESTORE THE STACK POINTER 

jDISABLE ANY TYPE OUT 

JIF THIS IS PARITY PROBLEM 

ITHEN GO TO 38 

{OTHERWISE INCREMENT THE ERROR STACK POINTER BY I 

;IF THIS IS ADDRESSING PROBLEM 

;THEN GO TO 38 

; INCREMENT THE POINTER R0 BY I 

JIS BIT 15 0F (R3) SET? 

J IF NOT THEN GO TO 4$ 

{OTHERWISE SEE IF THIS ERROR HAS OCCURED 377 TIMES 

jIF SO DON'T BUMp ERROR COUNT 

J INCREMENT THE ERROR COUNTER BY i 

{MORE THAN 1 ERROR OCCURRED ON THIS BIT? 

{BRANCH IF NO 

{STOP ERROR PRINTOUT AFTER 1 WANTED? 

{BRANCH IF YES (DON'T TYPE ERROR) 
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3 



2769 


005774 


105237 


000277 


781 


INCB 


i#TYPENB 


2770 


006000 


105737 


000300 


481 


TSTB 


@#SPRERR 


2771 


006004 


001411 






BEQ 


68 


2772 


006006 


004767 


000406 




JSR 


PCTPPRER 


2773 


006012 


000411 






BR 


88 


2774 


006014 


105737 


000301 




TSTB 


@#SADERR 


2775 


006020 


001403 






BEQ 


68 


2776 


006022 


004767 


000346 




JSR 


PCTPADEPP 


2777 


006026 


000403 






BR 


88 


2778 


006030 


105720 




681 


TSTB 


(R0) + 


2779 


006032 


006313 






ASL 


(P3) 


2780 


006034 


001342 






BNE 


28 


2781 


006036 


112737 


000006 000314 


881 


MOVB 


#6,0#TYPCNT 


2782 














2783 


006044 


004767 


001150 




JSP 


PCPUTADR 


2784 














2785 


006050 


004767 


000622 




JSR 


PCTYPERP 


2786 














2787 


006054 


005037 


000300 


10SI 


CLR 


i#8PREPR 


2788 


006060 


012600 






MOV 


(SP)4-,R0 


2789 


006062 


012603 






MOV 


{SP)+,R3 


2790 


006064 


105737 


000420 


FNDERRi 


TSTB 


?#iENV 


2791 


006070 


001404 






BEQ 


28 


2792 


006072 


012737 


000001 000400 




MOV 


#1,&#SMSGTY 


2793 


006100 


000443 






BR 


FATHLT 


2794 














2795 


006102 


010246 




28i 


MOV 


R2,«(SP) 


2796 


006104 


005777 


172340 




TST 


9SWP 


2797 














2798 


006110 


100405 






BMI 


48 


2799 








{CHECK 


FOP CONTROL«C KEY 


2800 














2801 


006112 


004767 


001546 




JSR 


PCCHECKC 


2802 














2803 


006116 


105737 


000042 


781 


TSTB 


i#42 


2804 


006122 


001401 






BEQ 


68 


2805 














2806 


006124 


000000 




481 


HALT 




2807 














2808 














2809 


006126 


012602 




681 


MOV 


(SP)+,R2 


2810 


006130 


062716 


000002 




ADD 


»2,(SP) 


2811 


006134 


000207 






RTS 


PC 


2812 














2613 














2814 














2815 


006136 






FATERRi 






2816 


006136 


004767 


000416 


SEQERRI 


JSR 


PCTPCRLF 


2817 


006142 
006150 


0S110S 
000043 


047522 020122 




.ASCIE 


/ERROR »/ 


2818 










,EVEN 




2819 














2820 


006152 


017637 


000000 000402 




MOV 


9(SP),@#SFATAL 


2821 


006160 


105237 


000314 




INCB 


iSTYPCNT 


2822 


006164 


012703 


000376 




MOV 


#376, R3 


2823 


006170 


013743 


000402 




MOV 


i«IFATAL,»(R3) 



{ENABLE THE TYPE OUT ROUTINE 

{PARITY ERROR? 

{BRANCH IF NO 

{ELSE TYPE "PAR ERR" 

{AND DON'T TEST INDIVIDUAL BIT FAILURES, 

{ADDRESS ERROR? 

{BRANCH IF NO 

{PRINT "ADR ERR" 

{POINT TO NEXT ENTRY IN ERROR STACK 

{IS THERE STILL AN ERROR BIT SET IN ERROR, 

{BR IF YES - KEEP FILLING ERROR STACK 

{TELL TYPOCT TO TYPE 6 WORDS OF ERROR STACK, 

{THE STACK POINTED BY R3 

{GO TO THE SUBROUTINE TO PLACE THE ADDRESS IN Rl 

{AT LOCATIONS (R3) AND (R3-2) 

{TYPE ERROR STACK (7 WORDS) 

{CLEAR ADDRESS/PARITY ERROR FLAGS 

{RESTORE R0 

{AND P3 

{APE WE RUNNING UNDER APT? 

{IF NOT THEN TEST FOR HALT 

{OTHERWISE INFORM THE APT 

{GOTO FATHLT AND WAIT FOR APT, 

{SAVE R2 TEMP 

{DOES THE OPERATOR REQUIRE THE PROGRAM TO HALT 

{ON ERROR 

{IF SO THEN HALT ON ERROR 



{IF CONTROL-C TYPED THEN PRINT ERROR HISTORY 

{AND HALT AT FATHLT, 

{ARE WE RUNNING UNDER ACT? 

{BRANCH IF NO 

{PROGRAM HAS HALTED ON ERROR, Rl IS POINTING 

{TO A LOCATION WHICH SHOULD HAVE CONTAINED 

{THE WORD STORED IN R0 

{RESTORE R2 

{RESTORE THE RETURN ADDRESS 

{RETURN FROM THE SUBROUTINE 



{TYPE "ERROR »« 



{LOAD THE LOCATION 8FATAL WITH THE ERROR NUMBER 
{TELL 8TPNUM TO TYPE 1 WORD 
lITPNUM USES R3 AS STACK 
{PUT ERROR NO, ON STACK 
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TST 

JSR 
TSTB 
BNE 
HALT 



2824 


006174 


005743 




2825 


006176 


004767 


000562 


2826 


006202 


105737 


000420 


2827 


006206 


001326 




2828 


006210 


000000 




2829 


006212 


000137 


000250 


2830 








2831 








2832 








2833 








2834 








2835 








2836 








2837 








2838 








2839 








2840 








2841 








2842 








2843 








2644 








2845 


006216 


012637 


000356 


2846 


006222 


011637 


000360 


2847 


006226 


013706 


000350 


2848 








2849 


006232 


010067 


000132 


2850 


006236 


010167 


000130 


2851 


006242 


013701 


000352 


2852 


006246 


012700 


172100 


2853 








2854 


006252 


005701 




2855 


006254 


001442 




2856 


006256 


000241 




2857 


006260 


006001 




2858 


006262 


103005 




2859 


006264 


005710 




2860 


006266 


100406 




2861 


006270 


020027 


172136 


2862 


006274 


002032 




2863 


006276 


062700 


000002 


2864 


006302 


000766 




2865 


006304 


042710 


100000 


2866 


006310 


011001 




2867 


006312 


006101 




2868 


006314 


006101 




2869 


006316 


006101 




2870 


006320 


006101 




2871 


006322 


042701 


000777 


2872 


006326 


105237 


000300 


2873 


006332 


004767 


177242 


(15 


006336 


000050 




(1) 








2874 


006340 


016700 


000024 


2875 


00b344 


016701 


000022 


2876 


006350 


013746 


000360 


2877 


006354 


013746 


000356 



»(R3} ;$TPNUM REQUIRES THIS 

PCFATYP jTYPE ERROR NO, 
§»$ENV {RUNNING UNDER APT? 
FNDERR iBRANCH IF YES 

jFATAL ERROR OR "C HALT, 
PSRESTRT iRESTART TST BUT DON'T CLEAR PASS COUNT 

jIN CASE "C RESTART, 



jPARERB 

I PARITY TRAP HANDLER 

jCOME HERE FROM A TRAP TO 114, 

J THIS ROUTINE SEARCHES THE AVAILABLE PARITY MODULES AND IF ONE 

IHAS A PARITY ERROR BIT SET THE GET THE PARITY ERROR ADDRESS 

lAND CALL THE "ERROR" ROUTINE TO PRINT ERROR MESSAGE, 

jir NO PARITY ERROR BITS CAN BE FOUND A FATAL ERROR Is DONE, 

I 

{REGISTER US AGE, 

JR08 HOLDS PARITY MODULE ADDRESSES 

jRl» GETS ERROR ADDRESS FOR "ERROR" CALL, 



PAPERPi MOV 
MOV 
MOV 

MOV 
MOV 
MOV 
MOV 



TST 

BEO 

CLC 

ROR 

BCC 

TST 

BMI 

CMP 

BGE 

ADD 

BR 

BIC 

MOV 

ROL 

ROL 

ROL 

ROL 

BIC 

INCB 

JSR 

50 



28i 
3$l 



(SP) + ,f»#PAPSP 

{SP),9»PARPS 

@«SAVR6fSP 

R0,SAVR0 
RlfSAVRl 
@#PARMAP«Rl 
#l72100fR0 



Rl 
4$ 



jSET PABSP TO RETURN ADDRESS 

ISAVE PSW FOR RETURN 

jAND RESET THE SP SINCE NOT ENOUGH STACK ROOM 

JTO COMPLETE THE ERROR SERVICE ROUTINE, 

JSAVE R0 DURING PARITY SERVICE 

{SAVE Rl DURING PARITY SERVICE 

jGET PARITY AVAILABLE MAP 

jR0a FIRST PARITY ADDRESS, 

jANY PARITY MODULES AVAILABLE? 
jBR IF NO -FATAL ERROr- 



jSHIFT PARITY MAP BIT INTO C BIT, 
jBRANCH IF THIS PARITY MODULE NOT AVAILABLE, 
I) JPARITY MODULE ERROR BIT SET? 

{BRANCH IF YES -CALL "ERROR" ROUTINE 
,#172136 {DONE ALL PARITY MODULES? 

{BR IF YES- GO TO FATAL ERROR CALL- 
{POINT TO NEXT PARITY ADDRESS 
{AND KEEP TRYING 
00000, (R05 {CLEAR PARITY ERROR BIT. 
),R1 {GET PARITY MODULE CSR 

{SHIFT ERROR ADDRESS BITS 11-5 INTO 15-9 



77, Rl {SAVE ERROR ADDRESS ONLY 

SPRERR {TELL "ERROR" PARITY ERROR CALL, 
, ERROR {*EPROR» REPORT ERROR MESSAGE 
{»*»#««ERROR NUMBER 50«»»*»» 



MOV 
MOV 
MOV 
MOV 



SAVR0#R0 {RESTORE R0 

SAVRlfRl {RESTORE Rl 

»»PARPS»"(SP) {SET RETURN PSW ON STACK 

9#PARSP,-(SP) {AND SET RETURN ADDRESS ON STACK 



DZKMA 


MACYll 


27(7325 


05-AUG. 


DEKMAB, 


PU 


ERROR HANDLING 


2878 


006360 


000002 




2879 








2880 








2881 


006362 






(1) 


006362 


004767 


177550 


(1) 


006366 


000051 




(1) 








2882 








2883 








2884 








2885 


006370 


000000 




2886 


006372 


000000 




2887 








2888 








2889 


006374 


105737 


000277 


2890 


006400 


001406 




2891 


006402 


004767 


000160 


2892 


006406 


042101 


020122 




006414 


000122 




2893 








2894 


006416 


000207 




2895 








2896 


006420 


105737 


000277 


2897 


006424 


001406 




2898 


006426 


004767 


000134 


2899 


006432 


040520 


020122 




006440 


000122 




2900 








2901 


006442 


000207 





RTI 



{RETURN TO TEST WHERE PARITY TRAP OCCURRED, 



;COME HERE IF NO PARITY ERROR FLAG FOUND SET 
4$l 

JSP PCFATERR {»ERROR» REPORT ERROR MESSAGE AND HALT AT FATHLT 

51 •»#*»**ERROP NUMBER 5l*»*»»* 

{P0+R1 ARE SAVED HERE FOR PARITY TRAP DUE TO INSUFFICIENT 
{STACK SPACE BETWEEN 500"450, 

SAVR0I {SAVE R0 DURING PARITY TRAP SERVICE 

SAVRlJ {SAVE Rl DURING PARITY TRAP SERVICE 



TPADERi 


TSTB 
BEQ 
JSR 
.ASCIZ 


g#TYPENB 
1$ 

PCPNTMES 
/ADR ERR/ 


l$l 


.EVEN 
RTS 


PC 


TPPRERj 


TSTB 
BEQ 
JSR 
.ASCII 


PftTYPENB 
18 

PCfPNTMES 
/PAR ERR/ 


ISI 


.EVEN 
RTS 


PC 



{TYPE ERROR? 

{BRANCH IF NO 

{ TYPE CR, LF AND 



'ADR ER» 



{ERROR PRINTOUTS ALLOWED? 

{BRANCH IF NO 

{GO TO TYPE CRi LF AND "PAR ERR" 
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2906 








2907 








2908 








2909 








2910 








2911 








2912 








2913 








2914 


006444 


010146 




2915 


006446 


016601 


000002 


2916 


006452 


105721 




2917 


006454 


001376 




2918 


006456 


000412 




2919 


006460 


010146 




2920 


006462 


010046 




2921 


006464 


016601 


000004 


2922 


006470 


112100 




2923 


006472 


001403 




2924 


006474 


004767 


000022 


2925 


006500 


000773 




2926 


006502 


012600 




2927 


006504 


005201 




2928 


006506 


042701 


000001 


2929 


006512 


010166 


000002 


2930 


006516 


012601 




2931 


006520 


000416 




2932 








2933 


006522 


132737 


000040 


2934 


006530 


001005 




2935 


006532 


105737 


177564 


2936 


006536 


100375 




2937 


006540 


110037 


177566 


2938 


006544 


000404 




2939 








2940 


006546 


004767 


177706 


2941 


006552 


005015 


000 


2942 




006556 




2943 


006556 


000207 




2944 








2945 


006560 


004767 


177762 


2946 


006564 


000735 




2947 








2948 








2949 


006566 


032777 


000020 


2950 


006574 


001323 




2951 


006576 


123737 


000042 


2952 


006604 


001717 




2953 


006606 


000764 





j» TYPE OUT ROUTINE 



NOTYPI 


MOV 


R1,-{SP) 




MOV 


2(SP>,R1 


431 


TSTB 


(Rn+ 




BNE 


4$ 




BR 


PETTYP 


STYPEl 


MOV 


R1,-(SP) 




MOV 


R0,«'(SP) 




MOV 


4(SP)»R1 


2Si 


MOVB 


(Rn*,R0 




BEQ 


4$ 




JSR 


PCSTPCHR 




BR 


2$ 


4$l 


MOV 


(SP)*,R0 


RETTYPI 


INC 


Rl 




BIC 


#1#R1 




MOV 


R1,2(SP) 




MOV 


CSP)+,Ri 




BR 


EXTYP 


STPCHRi 


BXTB 


#40f§»SENVM 




BNE 


4$ 


28t 


TSTB 


&#STPS 




BPL 


2$ 




MOVB 


R0,9»STPB 


4$l 


BR 


EXTYP 


PCRLFl 


JSR 


PCSTYPE 




.ASCIE 


<15><12> 




.EVEN 




EXTYPJ 


HTS 


PC fRE 


TPCRLFi 


JSR 


PCPCRliF 




BR 


STYPE 


PNTMESi 


BIT 


«20,9SWR 




BNE 


NOTYP 




CMPB 


i#42f 9#46 




BEQ 


NOTYP 




BR 


TPCRLF 



THIS ROUTINE IS USED BY THE PROGRAM TO TYPE OUT ANY CHARACTER 



;IF THIS TYPE OUT HAS BEEN SUPRESSED THEN 
J PREPARE TO RETURN 

;SAVE Rl 

I AND R0 ON THE STACK 

; PLACE THE ADDRESS OF MESSAGE TO BE TYPED IN Rl 

IPLACE THE BYTE TO BE TYPED IN R0 

;IF IT IS END OF MESSAGE THEN 60 TO 4$ 

^OTHERWISE Go TO TYPE THE CONTENTS OF R0 

; RESTORE R0 

ICAUSE Rl TO 

iPOINT TO EVEN ADDRESS 

^MODIFY THE RETURN ADDRESS 

^RESTORE Rl 

»AND RETURN VIA RTS PC 

iHAVE TYPE OUTS BEEN DISABLED? 

;IF SO THEN RETURN FROM THE SUBROUTINE 

{WAIT HERE 

jUNTIL THE PRINTER IS READY 

ILOAD DATA TO BE TYPED INTO DATA REG, 

{RETURN 



iCR/LF 



jTYPE CR/LF 

{NOW GO TO TYPE THE REST OF THE MESSAGE 



{PRINTOUTS ALLOWED? 
{BRANCH IF NO 
{RUNNING UNDER ACT U? 
•BRANCH IF YES -NOT PRINtOUT- 
{SEND CR/LF AND TYPE MESSAGE, 
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2958 








2959 








2960 








2961 








2962 








2963 








2964 








2965 








2966 


006610 


004767 


177732 


2967 








2968 


006614 


005046 




2969 


006616 


013746 


000312 


2970 








2971 


006622 


162716 


000012 


2972 


006626 


002403 




2973 








2974 


006630 


005266 


000002 


2975 


006634 


000772 




2976 


006636 


062716 


000012 


2977 


006642 


052716 


000060 


2978 


006646 


112667 


000020 


2979 


006652 


052716 


000060 


2980 


006656 


112667 


000007 


2981 


006662 


004767 


177572 


2982 








2983 


006666 


020040 


030040 


2984 








2985 


006674 


000207 





» ROUTINE TO TYPE OUT A DECIMAL NUMBER 



THIS ROUTINE IS USED TO CONVERT THE CONTENTS OF LOCATION 
DECWRD TO DECIMAL NUMBERS AND TYPE THEN FOLLOWING 3 SPACES 



TYPDECl JSR 



STPDECl 



CLR 
MOV 

SUB 
BLT 

INC 

BR 

ADD 

BIS 

MOVB 

BIS 

MOVB 

JSR 

.ASCIZ 

.EVEN 
RTS 



PCPCRLF 



*{SP) 
*»DECWRDi«»(SP) 



«10, 
4$ 



. (SP) 



2(SP) 
2$ 

il0,i(SP) 

»60,(SP) 

(SP)*,6$-2 

#60f (SP) 

(SP)*,6S-3 

PCtTYPE 



{TYPE CR/LF 



{GET THE WORD THAT HAS TO BE CONVERTED TO A 
{DECIMAL NUMBER 

{IF THE NUMBER IN (SP) WAS LESS THAN 10, THEN 

{GO TO 4$ 

{OTHERWISE ADD 1 TO THE LOCATION STORING 10»S DIGIT 

{AND RETURN TO 2$ 

{MAKE THE CONTENTS OF (SP) A DECIMAL NUMBER 

{PLACE THE I'S DIGIT TO BE TYPED 

{MAKE THE CONTENTS OF (SP) A DECIMAL NUMBER 

{PLACE THE i0'S DIGIT TO BE TYPED 

{GO TO TYPE THE NUMBER IN DECIMAL FOLLOWED BY 

{3 SPACES 



{RETURN FROM THE SUBROUTINE 



lip 
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SiQ 006§ 



2990 
















































































3000 








3001 








3002 








3003 








3004 








3005 


006676 


032777 


020000 


3006 


006704 


001054 




3007 


006706 


004767 


177634 


300S 


006712 


004767 


000012 


3009 


006716 


000447 




3010 


006720 


012123 




3011 








3012 


006722 


012113 




3013 


006724 


J05237 


000314 


3014 


006730 


052743 


000004 


301S 


006734 


106113 




3016 


006736 


103376 




3017 


006740 


005000 




3018 


006742 


106113 




3019 


006744 


006100 




3020 


006746 


106113 




3021 


0067S0 


006100 




3022 


006752 


000405 




3023 


006754 


004767 


177500 


3024 


006760 


020040 


000040 


3025 








3026 


006764 


003000 




3027 


006766 


012723 


000006 


3028 


006772 


00024! 




3029 


006774 


006113 




3030 


006776 


006100 




3031 


007000 


052700 


000060 


3032 


007004 


004767 


177512 


3033 


007010 


005000 




3034 


007012 


006113 




3035 


007014 


006100 




3036 


007016 


006113 




3037 


007020 


006100 




3038 


007022 


105363 


177776 


3039 


007026 


001361 




3040 


007030 


105337 


000314 


3041 


007034 


001347 




3042 


007036 


000207 





171544 



TYPOCTI 
2$l 



f# 

f« 

l« 

l» 
l» 
1^ 
l» 
l» 
»» 

f* 

TYPERRi BIT 
BNE 
JSR 
JSP 
BR 

OCTTYPI MOV 

MOV 
INCB 
BIS 
ROLB 
BCC 
CLP 
ROLB 
ROL 
ROLB 
ROL 
BR 
RPTOCTJ JSR 

,ASCIE 
.EVEN 
FATYPl CLR 
STPNUMf MOV 
4S| CLC 
ROL 
ROL 
BIS 
JSR 
CI.R 
ROL 
ROL 
POL 
ROL 
DECB 
BNE 
DECB 
BNE 
OCTXT! PTS 



OCTAL TYPE OUT ROUTINE 



THIS ROUTINE IS USED TO TYPE OUT THE OCTAL VALUES 

CONTROL SHOULD COME TO THIS ROUTINE WITH R3 POINTING TO 

THE LOW ORDER BITS (I,E, BITS 0»1S] OF THE ADDRESS TO 

BE TYPED WHERE AS R3»2 SHOULD CONTAIN THE HIGH ORDER BITS 

CI.E, BITS 16 & 17), CONTENTS OF LOCATION R3"l AND R0 ARE 

DESTROYED BY THIS SUBROUTINE 

BYTE TYPCNT SHOULD BE SET TO THE NUMBER OF WORDS THAT HAVE 

TO BE TYPED, 



) 



820000, 9SWR 

OCTXT 

PCPCRLF 

PCTYPOCT 

OCTXT 

CRl)4-#CR3)<>. 

(Pn*#(R3) 

i#TYPCNT 

»4,-(R3) 

(R3) 

2S 

R0 

CR3) 

R0 

(R3) 

R0 

STPNUM 

PCSTYPE 

/ / 

R0 
#6,{R33-». 

(P3) 

R0 

#60, R0 

PCSTPCHR 

P0 

(R3) 

R0 

CR3) 

R0 

-2(R3) 

4$ 

?»TYPCNT 

RPTOCT 

PC 



fERROR PRINTOUT WANTED? 

iBRANCH IF NO 

ITYPE CR/LF 

fTYPE OCTAL NO, 

iRETURN VIA RTS PC 

fPLACE THE HIGH ORDER BITS AT LOCATION POINTED 

|BY R3 

fAND NOW PLACE THE LOW ORDER BITS 

^ENABLE THE TYPE OUT OF ONE OCTAL WORD 



IGET BITS 17 £. 16 INTO 



J TYPE 3 SPACES 



jENABLE THE TYPE OUT OF 6 OCTAL DIGITS 



IPLACE THE CARRY FROM (R3) IN R0 

jOR THE CONTENTS OF R0 WITH AN ASCII 

i TYPE THE OCTAL NUMBER STORED IN R0 



jPLACE THE CARRY FROM (R3) IN R0 

JPLACE THE CARRY FROM (R3) IN R0 

J IF WE HAVEN'T TYPED THE 6 OCTAL DIGITS 

jTHEN REPEAT FROM 4S 

J IF ALL THE WORDS REQUIRED HAVE NOT BEEN 

J TYPED THEN REPEAT FROM RPTOCT 
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3047 
3048 
3049 
3050 
3051 
3052 
3053 
3054 
3055 
3056 
3057 
3058 
3059 
3060 
3061 
3062 
3063 
3064 
3065 
3066 
3067 
3068 
3069 
3070 
3071 
3072 
3073 
3074 
3075 
3076 
3077 
3078 
3079 
3080 
3081 
3082 
3083 
3064 
3085 

3086 
3087 
CI) 
(1) 
3088 
3089 
3090 
3091 



007040 
007044 

007050 
007056 
007060 
007064 
007070 
007074 
007100 

007104 
007110 
007112 
007116 
007120 
007124 
007126 
007132 
007136 
007142 
007146 
007150 
007154 
007156 
007162 

007164 
007166 
007172 
007200 

007202 
007206 



012702 
105037 

032777 
001441 
012700 
012720 
012710 
005037 
105237 

012701 
005021 
062702 
010221 
020127 
103772 
012711 
012701 
012721 
020127 
101773 
005237 
005010 
012740 



022626 
004767 
047316 
000 
007202 
004767 
52 



176730 



« ROUTINE TO SET UP MEMORY MANAGEMENT REGISTERS 



PROGRAM CONTROL COMES HERE TO DETERMINE IF THE MEMORY MANAGEMENT 
IS AVAILABLE OR NOT, AND IF IT IS AVAILABLE THEN WHETHER 
THE MEMORY ABOVE 28K IS REQUIRED TO BE TESTED OP NOT, 



001400 
000276 

010000 171372 

000004 
007164 
000340 
177572 
000276 

172340 

000200 

172356 

007600 
172300 
077406 
172316 

177572 

000104 



177366 
046440 



MEMMNGj MOV 
MMpEGJ CLRB 

BIT 
BEQ 
MOV 
MOV 
MOV 
CLR 
INCB 

MOV 

CLR 

ADD 

MOV 

CMP 

BLO 

MOV 

MOV 

MOV 

CMP 

BLOS 

INC 

SPETMMi CLR 
MOV 

RETMMl RTS 



23i 



4$! 



NOMMi 



007210 090761 



007212 
007216 



013702 
000712 



CMP 
JSR 
,ASCIZ 

.EVEN 

JSR 

52 



MOV 
BR 



#1400, R2 

fSHMAVA 

#10000, 9SWR 

RETMM 

#4,R0 

#NOMM,(R0)4- 

#340, (R0) 

9#SR0 

i»MMAVA 

#172340, Rl 

CRD* 

#200, R2 

R2,(Rl)-l' 

Rl, #172356 

2$ 

#7600, CRl) 

»172300#R1 

#77406, (RD* 

Rl, #172316 

4$ 

9«SR0 

CR0) 

#BUSER,-(R0) 

PC 

(SP)+,(SP)+ 
PCTPCRLF 
/NO MNG/ 



8RETMM 



§#172354, R2 
MMREG 



yCLEAP THE BYTE THAT IS SUPPOSED TO INDICATE 

JTHAT MEM, MANAG, IS AVAILABLE FOR TESTING 

;HAS THE OPERATOR ASKED TO CHECK MEMORY MANAG, ? 

J IF NOT THEN RETURN FpOM THE SUBROUTINE 

yPREPARE TO SETUP TIME OUT VECTOR 

JRETURN ADDRESS TO NOMM 

JAND WITH A PSW OF 340 

;TRY TO REACH MEM, MANAG, SR0 

jIF IT IS AVAILABLE THEN SET MEM, MANAG, AVAILABLE 

iBYTE 

JRI IS POINTING TO PAR0 

JPAR0 WILL POINT TO BANK 

jSETUP PAR1-PAR6 



JPAR7 IS POINTING TO THE I/O PAGE 
J SETUP PDR0-PDR7 



jENABLE MEM, MANAG, 

iRESTORE TIME OUT TRAp VECTOR FOR ANY FUTURE TRAP 



jRESTORE STACK POINTER 

jTYPE "NO MEMORY MANAGEMENT MESSAGE 



r»ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
j##»»«»ERROR NUMBER 52*«**»* 

I RESTORE TIME OUT TRAP VECTOR 

fPREPARE TO UPDATE MEMORY MANAG, REGISTERS 
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3096 








3097 








3098 








3099 








3100 








3101 








3102 








3103 








3104 








3105 








310t> 








3107 


007220 


005063 


177776 


3108 


007224 


010113 




3109 


007226 


I0S737 


000276 




007232 


001425 






007234 


010146 






007236 


042701 


017777 




007242 


040113 






007244 


052701 


004000 




0072S0 


006001 






007252 


103376 






007254 


062701 


172340 




007260 


011101 






007262 


052701 


010000 




007266 


006101 






007270 


103376 






007272 


006101 






007274 


006143 






007276 


006101 






007300 


006123 






007302 


050113 






007304 


012601 






007306 


000207 














































































































007310 


016143 


000001 




007314 


005043 














007316 


116113 


177777 




007322 


000207 





I» 18 

}# 
I* 
I* 



PUTADBi CLR 
MOV 
TSTB 
BEQ 
MOV 
BIC 
BIC 
BIS 

2$! ROR 
BCC 
ADD 
MOV 
BIS 

4Sl ROL 
BCC 
ROL 
ROL 
ROL 
ROL 
BIS 
MOV 

66J BTS 



BIT ADDRESS GENERATOR 



THIS SUBROUTINE IS USED TO PLACE THE ADDRESS STORED IN Rl 
IN THE LOCATION POINTED BY R3, THE ADDRESS IN Rl IS CONVERTED 
TO AN 18 BIT ADDRESS ONLY IF MEM, MANaG, IS AVILABLE IN WHICH 
CASE THE HIGH ORDER BITS OF THE ADDRESS ARE PLACED IN LOCATION 
POINTED BY R3*2 



»2(R3) 

R1,(R3) 

i#MMAVA 

6$ 

R1,«CSP) 

#17777, Rl 

R1#(R3) 

14000, Rl 

Rl 

2S 

#172340, Rl 

(Rl)»Rl 

•10000»R1 

Rl 

4$ 

Rl 

"(R3) 

Rl 

(R3) + 

R1»(R3) 

(SP)-t-,Rl 

PC 



iPLACE THE ADDRESS STORED IN Rl IN LOCATION (R3J 

lis THE MEM, MANAG, AVAILABLE ? 

fIF NOT THEN RETURN FROM THE SUBROUTINE 

ISAVE Rl 

ICLEAR BITS 0-12 OF THE ADDRESS IN Rl 

ILEAVE BITS 0«12 OF THE ADDRESS IN CR33 

jPREPARE TO SHIFT Rl BY 12 PLACES 

jGET THE NUMBER OF PAR IN Rl 
IGET THE ADDRESS OF PAR IN Rl 
?LOAD Rl WITH THE CONTENTS OF PAR 



jPLACE THE ADDRESS BITS 13»17 IN BITS ll«15 OF Rl 

IPLACE BIT 17 IN LOCATION POINTED BY R3«2 

fPLACE BIT 16 OF THE ADDRESS 

iPLACE BITS 13-15 OF THE ADDRESS IN LOCATION CR3) 

JRESTORE Rl 

IBETURN FROM THE SUBROUTINE 



l« 
l» 
l» 
I* 

GETADP} HOV 
CLR 

MOVB 
2SS RTS 



GET ADDRESS FROM THE APT MAILBOX 



THIS SUBROUTINE IS USED TO GET ADDRESS FROM APT MAILBOX AND 
PLACE IT IN THE LOCATION USED BY THE PROGRAM TO DEFINE THE 
MEMORY BOUNDRIESs 

PROGRAM CONTROL SHOULD COME TO THIS SUBROUTINE WITH Rl POINT- 
ING TO THE MEMORY TYPE IN THE APT MAILBOX AND R3 POINTING TO 
THE LOCATION+2 WHERE THE LOW ORDER BITS OF THE ADDRESS HAVE 
TO BE PLACED 



1(R1),"(R3) 
«CR3) 



«1(R1)»(R3) 
PC 



; PLACE THE LOW ORDER BITS OF THE ADDRESS 

JCLEAR THE LOCATION WHERE THE HIGH ORDER BITS 

jHAVE TO BE PLACED 

JPLACE BITS 16 & 17 

jRETURN FROM THE SUBROUTINE 



^ 
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3154 
3155 
3156 
3157 
3158 
3159 
3160 
3161 
3162 
3163 
3164 
3165 
3166 
3167 
3168 
3169 
3170 
3171 
3172 
3173 
3174 
3175 
3176 
3177 
3178 
3179 
3180 
3181 
3182 
3183 
3184 
3188 
3189 
3190 
3191 
3192 
3193 
3194 
3195 
3196 
3197 
3198 
3199 
3200 
3201 
3202 
3203 
3204 
3205 
3206 
3207 
3208 
3209 
3210 
3211 
3212 
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007324 105237 000315 



007330 
007332 
007334 
007340 
007344 
007346 
007350 
007352 
007356 
007360 
007364 
007370 
007372 
007374 
007400 
007402 



007404 
007410 
007412 
007416 
007422 



007424 
007426 
007430 
007434 



012301 
011302 
042702 
052702 

II 



103375 
105737 
001405 
105037 
052702 
000765 
012301 
012700 
040001 
000207 



000315 
000100 



105737 000276 

001404 

005037 177572 

10S037 000276 

000207 



010046 
010346 

042703 017777 
0S2703 010000 



* CONVERT 18 BIT ADDRESS TO THE PAR FORM 

» 

» THIS SUBROUTINE IS USED TO CONVERT 18 BIT ADDRESS STORED IN 

« LOCATIONS POINTED BY R3 AND R3*2 TO THE FORM IT WILL BE STORED 

» IN A PAR. THE RESULT IS LEFT IN R2, Rl IS LOADED WITH BITS 

» 0-12 OF THE ADDRESS AND R0 WITH 160000 



JPREPARE TO PLACE ADDRESS BITS 13-17 IN BITS 
;0»4 OF R2 



SGTSIZI 


INCB 


i#SAVKBB 


GETSIZl 


MOV 


(R3)+,R1 




MOV 


(R3),R2 




BIC 


#17777, P2 


2S: 


BIS 


#40, R2 


4$S 


ROR 


Rl 




ROR 


R2 




BCC 


4$ 




TSTB 


f#SAVKBB 




BEQ 


6S 




CLRB 


§»SAVKBB 




BIS 


#100#R2 




BR 


4$ 


6SJ 


MOV 


(R3)+,R1 




MOV 


#160000#R0 




BIC 


R0,R1 




RTS 


PC 



ILOAD R2 WITH THE LOW ORDER BITS OF THE ADDRESS 
jCLEAR ADDRESS BITS 0«12 



IROTATE Rl AND R2 7 TIMES 



jPLACE THE LOW ORDER ADDRESS BITS IN Rl 



jLEAVE BITS 0-12 OF THE ADDRESS IN Rl 
J RETURN FROM THE SUBRORNE 



I» SUBROUTINE TO DISABLE MEMORY MANAGEMENT 



I* 



THIS SUBROUTINE IS CALLED TO DISABLE THE MEMORY MANAGEMENT 
UNIT 



TSTB i#MMAVA 

BEQ 1$ 

CLR »#SR0 

CLRB i«MMAVA 

BTS PC 



iWAS THE MEMORY MANAGEMENT ENABLED ? 

I IF NOT THEN GO TO 1$ 

^DISABLE THE MEMORY MANAGEMENT 

jAND DO NOT ATTEMPT TO TEST MEN, MANAGg 

fRETURN FROM THE SUBROUTINE 



l» GET BANK NO. UNDER TEST 

J CALLED BY ERRTYP AND TST13 TO GET BANK NO, 

p REGISTERS 

IR08POINTER TO PAR UNDER TEST 

>R3sVlRTUAL ADDRESS ON ENTRY 

IR0+R3 ARE RESTORED ON EXIT, 

GETBNKi HOV R0,-CSP) fSAVE R0 

MOV R3,«(SP) fSAVE R3 

BIC #17777, R3 iSAVE ONLY VIRTUAL BANK BITS 

BIS S10000,R3 ISETUP R3 SHIFT BIT 



UNDER TEST INTO PBNK, 



DEKMA MACYU 27(732) 0S«AUG-76 13l43 PAGE 23«.19 
DEKMAB.Pll SUBROUTINE TO DISABLE MEMOpy MANAGEMENT 



3213 


007440 


000241 




3214 


007442 


006003 




3215 


007444 


103376 




3216 


007446 


105737 


000276 


3217 


007452 


001407 




3218 








3219 








3220 


007454 


006303 




3221 


007456 


062703 


172340 


3222 


007462 


011300 




3223 


007464 


006300 




3224 


007466 


000300 




3225 


007470 


110003 




3226 


007472 


010337 


000312 


3227 


007476 


012603 




3228 


007500 


012600 




3229 


007502 


000207 




3230 








3231 








3232 








3233 








3234 








3235 








3236 








3237 








3238 








3239 








3240 








3241 








3242 








3243 








3244 








3245 








3246 








3247 








3248 








3249 








3250 








3251 








3252 


007504 


032777 


004000 


3253 


007512 


001460 




3254 








3255 


007514 


012700 


000004 


3256 


007520 


012710 


000122 


3257 


007524 


060710 




3258 


007526 


005037 


000352 


3259 


007532 


012701 


172140 


3260 


007536 


012703 


100000 


3261 


007542 


010241 




3262 


007544 


050337 


000352 


3263 


007550 


000241 




3264 


007552 


006003 




3265 


007554 


103372 




3266 


007556 


012710 


000104 


3267 


007562 


005702 




3268 


007564 


001433 





CLC 




POP 


P3 


BCC 


18 


TSTB 


»#MMAVA 


BEQ 


2$ 


! ADDRESS AND PHYSK 


ASL 


R3 


ADD 


»172340#P3 


MOV 


(R3)#R0 


ASL 


R0 


SWAB 


R0 


MOVB 


P0,P3 


MOV 


P3,9#PBNK 


MOV 


CSP)+,R3 


MOV 


(SP)+,R0 


PTS 


PC 



ISHIFT A BANK BIT 
»UNTIL IN BITS <2l0> OF R3 
jMEMORY MANAGEMENT UNDER TEST? 
jNO EXIT 



»MAKE R3 PAR ADDRESS OFFSET, 
jMAKE FULL PAR ADDRESS, 
tGET pap CONTENTS 

fSHIFT BANK BITS TO BITS <7l0 
jSET R3 TO PHYSICAL BANK NO, 
jSTORE PHYSICAL BANK NO, 
? RESTORE R3 
^RESTORE R0 
jRETURN TO CALLER 



t PARITY ENABLE/DISABLE ROUTINE 

» 

f THIS ROUTINE ENABLES OR DISABLES PARITY MODULES AND PRINTS ASSOCIATED MEASSAGES, 

J IF PARITY AVAILABLE THEN BIT13 OF "PEL" IS SET AND •'PAR"ITY IS PRINTED, 

I ALSO THE BACKGROUND TEST PATTERN (LOC. BAKpAT) IS SETa376 

t 

IREGISTEP USAGE, 

jP0a POINTS TO BUS TIMEOUT TRAP VECTOR (LOC, 4) 

jPls HOLDS PARITY MODULE UNIBUS ADDRESS, 

fR2s ON ENTRY HOLDS ENABLE/DISABLE CODE , 

1 IF R2a0 THEN DISABLE 

I IF R2»l THEN ENABLE 

jR3s SCRATCH TO SETUP LOC, PARMAP WITH A MAP OF PARITY MODULES PRESENT, 



lENABLE CODE 



jPARITY TEST WANTED? 
IBRANCH IF NO 

jPOINT R0 TO BUS TIMEOUT ADDRESS, 

;SET RETURN FROM TIMEOUT TRAP TO 5$ 

jIN THE CURRENT BANK, 

JCLEAR PARITY MAP HOLDER, 

jSET Rl TO LAST PARITY MODULE ADDRESS+2 

;SET P3 TO PARMAP AVAILABLE CODE BEGIN, 

jENABLE A PARITY MODULE+TRAP IF NOT AVAILABLE, 

;N0 TRAP TO 5S, SO SET PARITY AVAILABLE, 

JSETUP NEXT PARMAP BIT 

iBRANCH IF NOT DONE ALL PARITY ADDRESSES, 

•RESET BUS TIMEOUT TRAP VECTOR 

J IS THIS A DISABLE CALL? 

;BRANCH IF YES (EXIT) 



jCALL 


IS 




1 


MOV 


»1,R2 |EN, 


> 


JSR 


PC, PARITY 


PARITY 


t BIT 


S4000,@SWR 




BEQ 


6$ 




MOV 


«4,R0 




MOV 


»56-.-6,(R0 




ADD 


PC,(R0) 


ISI 


CLR 


PiPARMAP 




MOV 


#172140, Rl 




MOV 


#100000, R3 


2$: 


MOV 


R2,"(R1) 




BIS 


R3,9#PARMAP 




CLC 




3$i 


POP 


R3 




BCC 


2S 




MOV 


#BUSER,CR0) 




TST 


P2 




BEQ 


68 
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3269 


007566 


005737 


000352 




3270 


007572 


001011 






3271 


007574 


004767 


176760 




3272 


007600 
007606 


047516 

000 


050040 


051101 


3273 




007610 






3274 


007610 


004767 


176322 




(1) 


007614 


000053 






(1) 










3275 










3276 


007616 


152737 


000040 


000405 


3277 


007624 


012737 


000376 


000316 


3278 










3279 


007632 


004767 


176722 




3280 


007636 
007644 


040520 
000 


044522 


054524 


3281 




007646 






3282 


007646 


000405 






3283 










3284 










3285 











TST 
BNE 
JSR 
.ASCIZ 


@»PARMAP 
4$ 

PCTPCRLF 
/NO PAR/ 


.EVEN 

JSR 

53 


PCFATERR 


BISB 
MOV 


»40,9#REL 
«376,i#BAKpAT 


JSR 
.ASCIE 


PCTPCRLF 
/PARITY/ 


.EVEN 
BR 


EXITC 



jWERE ANY PARITY MODULES FOUND? 
{BRANCH IF YES 
JPRINT "NO PAR" 



}*ERROR» REPORT ERROR MESSAGE AND HALT AT FATHLT 
•»»»««*ERROR NUMBER S3*»»#»» 



jSET PARITY UNDER TEST FLAG 
fSET BACKGROUND PATTERN TO 
jWORST CASE PARITY CODE, 
IPPINT "TST PARITY" 



lAND EXIT VIA RTS PC 



jGET HERE IF PARITY ADDRESS TIMED OUT TO LOC, 4 
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3296 


007650 


022626 




3297 


007652 


000737 




3298 








3299 


007654 


142737 


000040 


3300 


007662 






3301 


007662 


000207 




3 302 








3303 








3304 








3305 








3306 








3307 








3308 








3309 








3310 








3311 








3312 








3313 


007664 


105037 


000315 


3314 


007670 


105737 


177560 


3315 


007674 


100372 




3316 


007676 


113702 


177562 


3317 


007702 


042702 


000200 


3318 


007706 


122702 


000003 


3319 


007712 


001363 




3320 


007714 


110237 


000315 


3321 


007720 


004767 


176634 


3322 


007724 


041536 


000 


3323 




007730 




3324 


007730 


000167 


175104 


3325 








3332 




007744 




3333 


007744 


000000 




3334 








3335 








3336 








3337 








3338 




000001 





5SI CMP 

BP 

000405 6S| BICB 
EXITCl 
7S| RTS 



(SP)+,(SP)4 
3$ 



#40,g#REL 
PC 



IRESET STACK FROM TRAP 

jKEEP TRYING PARITY ADDRESES, 



fCLEAP PARITY TESTING FLAG 
jRETURN TO CALLER 



I CHECKC 

J THIS ROUTINE CHECKS IF CONTROL-C WAS TYPED AT THE END OF EACH 

ITEST OR IN THE ERPOR TYPE ROUTINE, 

fIF C0NTROL"C TYPED THE PROGRAM IS RETURNED TO LOWER MEMORY IF IT WAS 

fRELOCATED AND THE ERROR HISTORY IS PRINTED OUT, 

{FINALLY IT HALTS AT FATHLT, 

jINIT CONTROL-C FLAG, 
jANY CHAR, TYPED? 
}BR IF NO-EXIT VIA RTS PC- 
iGET THE CHAR TYPED, 
iCLEAR THE PARITY BIT, 

J IS IT CONTROL-C? 

fBpANCH IF NO -EXIT VIA RTS PC- 

lELSE STORE THE CHAR, FOR USE AS A FLAG, 

{PRINT "-C" 



jGO RETURN PROGRAM TO LOWER CORE IF RELOCATED. 



CHECKCl 


CLRB 


P«SAVKBB 




TSTB 


f#TKS 




BPL 


EXITC 




MOVB 


i#SKBB,R2 




BIC 


#200, R2 iCLI 




CMPB 


#3,R2 




BNE 


EXITC 




MOVB 


R2,0«SAVKBB 




JSP 


PCTPCRLF 




.ASCIZ 


/"C/ 




.EVEN 






JMP 


RELOER 


,b7744 






ENDPRGj 





ith: 



.END 



ITHIS BEGINS THE STORAGE FOR THE ERROR HISTORY 
ISTACK.FOR EACH 4K BANK 18, BYTES ARE SAVED, 
{ALSO THE ABSOLUTE LOADER AND XXDP CODE IS SAVED 
I AFTER THE ERROR STACK, 
>FOR 4K MEMORY SIZE THEN PR0GRAMs7744+22=7776 
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ABASF s 


000000 


BRTPSZ 


001012 


ACDWI s 


000000 


BUSER 


000104 


ACDW2 s 


000000 


CHECKC 


007664 


ACPUOPs 


000000 


CKDONE 


005106 


ACTU 


005522 


CLRMEM 


001466 


ADDW0 a 


000000 


CLRMM 


007404 


ADDWi 8 


000000 


CNTSCP 


001644 


ADOW10B 


000000 


CONT 


001526 


ADDWlla 


000000 


CONTMM 


005134 


ADDW12S 


000000 


CTLC 


005570 


ADDWUa 


000000 


OECWRD 


000312 


ADDW14S 


000000 


ENDPAS 


005276 


ADDWlSa 


000000 


ENDPRG 


007744 


ADDW2 a 


000000 


END5TK 


000310 


ADDW3 = 


000000 


END0 


002132 


ADDW4 a 


000000 


ENDl 


002232 


ADDW5 s 


000000 


END10 


003772 


ADDW6 a 


000000 


END12 


004316 


ADDW7 s 


000000 


END2 


002342 


ADDW8 a 


000000 


END3 


002610 


ADDW9 « 


000000 


END4 


002720 


ADEVCTa 


000000 


END5 


003066 


ADEVM s 


000000 


END6 


003222 


AENV s 


000000 


END7 


003444 


AENVM a 


000000 


ERROR 


005600 


AFATALs 


000000 


ERRTYP 


005716 


AMADpls 


000000 


EXITC 


007662 


AMADR2a 


000000 


EXTYP 


006556 


AMADP38 


000000 


FAILNM 


005374 


AMADR4a 


000000 


faterr 


006136 


AMAMSls 


000000 


FATHLT 


006210 


AMAMS2a 


000000 


FATYP 


006764 


AMAM53S 


000000 


FNDEPR 


006064 


AMAMS4S 


000000 


GALLOP 


003472 


AMSGADa 


000000 


GETADR 


007310 


AMSGLGa 


000000 


GETBNK 


007424 


AMSGTYa 


000000 


GETSIZ 


007330 


AMTYPla 


000000 


HIGHAD 


000332 


AMTyP28 


000000 


HIGHTW 


000330 


AMTYPla 


000000 


LOOP 


001536 


AMTYP4a 


000000 


LOWADD 


000326 


APASS m 


000000 


LOWBNK 


000304 


APRIORa 


000000 


LOWER 


005112 


APTHLT 


006202 


LOWTWO 


000324 


APTSIZ 


000724 


M B 


000200 


ASWREGa 


000000 


MAXADR 


005224 


ATESTNa 


000000 


MAXMEM 


000340 


AONIT a 


000000 


MEMMNG 


007040 


AUSWR a 


000000 


MEMTST 


001460 


AVECTls 


000000 


MMAVA 


000276 


AVECT28 


000000 


MMREG 


007044 


BAKPAT 


000316 


N a 


000054 



NOTYP 


006444 


OCTTYP 


006720 


OCTXT 


007036 


ONEPAS 


000556 


PARCRP 


006216 


PARFL 


005432 


PARITY 


007504 


PARMAP 


000352 


PARPS 


000360 


PARSP 


000356 


PASFLG 


000306 


PBNK 


000312 


PC = 


%000007 


PCPLF 


006546 


PNTMES 


006566 


PUTADR 


007220 


PWPDN 


000070 


PWRUP 


000136 


REL a 


000405 


PELBOT 


000322 


RELOC 


004746 


RELOER 


005040 


RESTRT 


000250 


PETMM 


007162 


RETSTK 


005336 


RETTYP 


006504 


RLODER 


005546 


RPTOCT 


006754 


RPT10 


003466 


RPTU 


004032 


RPT6 


003106 


R0 a 


1%000000 


Rl » 


!%000001 


R2 a 


t%000002 


R3 a 


i%000003 


R4 a 


i%000004 


R5 a 


i%000005 


SAVKBB 


000315 


SAVLDR 


001242 


SAVLOC 


000354 


SAVMAX 


000342 


SAVR0 


006370 


5AVP1 


006372 


SAVR4 


000344 


SAVR5 


000346 


SAVR6 


000350 


SCOPE a 


1 000240 


SEQERR 


006136 


SETSTK 


001164 


SETSWR 


000656 


SLFSIZ 


001024 


SP « 


!%000006 



START 


000200 


STRTDI 


000302 


SWAPAT 


000320 


SWHALT 


001664 


SWR 


000450 


SWREG 


000176 


SWU a 


004000 


TBL 


001600 


TKS a 


177560 


TRADER 


006374 


TPCRLF 


006560 


TPPRER 


006420 


TPYSR 


001014 


TSTGO 


001666 


TSTMM 


005120 


TSTREL 


001320 


TSTRP 


000570 


TSTSCP 


001632 


TSTSIZ 


001324 


TST0 


001702 


TSTi 


002134 


TST10 


003446 


TSTI I 


003774 


TST12 


004046 


TST13 


004320 


TST2 


002234 


TST3 


002344 


TST4 


002612 


TST5 


002722 


TST6 


003070 


TST7 


003224 


TYPCNT 


000314 


TYPDEC 


006610 


TYPENB 


000277 


TYPEOP 


005470 


TYPERR 


006676 


TYPMEM 


001152 


TYPOCT 


006730 


TYPSIZ 


001130 


TYPSTK 


005316 


UPMM 


007212 


WRTMEM 


000120 


$A s 


000001 


$ADERR 


000301 


lApTHD 


000276 


ICNTMM 


005140 


$CPUOP 


000426 


SDEVCT 


000410 


SDOAGN 


00S542 


fENDAD 


0001S6 


$CNV 


000420 


8ENVM 


000421 







SEQ 0073 


SETABL 


000420 




SETEND 


000450 




$FATAL 


000402 




SGTSIZ 


007324 




$HD a 


000002 




SHIBTS 


000276 




SHIMAX 


000334 




SKBB a 


177562 




$MADR1 


000432 




SMADR2 


000436 




$MADR3 


000442 




SMADR4 


000446 




$MAIL 


000400 




SMAMSl 


000430 




$MAMS2 


000434 




$MAMS3 


000440 




$MAMS4 


000444 




SMAXM 


000336 




$MBADR 


000300 




SMSGAD 


000414 




$MSGLG 


000416 




SMSGTY 


000400 




SMTYPl 


000431 




$MTYP2 


000435 




$MTYP3 


000441 




SMTYP4 


000445 




SNWTSTa 


000001 




SPASS 


000406 




$PASTM 


000304 




8PRERR 


000300 




$RETMM 


007154 




$SVPC a 


000044 




SSWR a 


000000 




$SWREG 


000422 




ITESTN 


000404 




8TN a 


000014 




8TPB m 


177566 




ITPCHR 


006522 




$TPDEC 


006614 




ITPNUM 


006766 




$TPS a 


177564 




ITPSTK 


005306 




8TSTM 


000302 




STYPE 


006460 




JUNIT 


000412 




8UNITM 


000306 




$USWR 


000424 




8Z s 


000362 




lEE a 


007734 




$8M a 


000200 




,8X a 


000276 




1 B* 


007746 
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